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The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
fácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema Plus Data, consigue que el ordenador se convierta en un perfecto profesor que 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de resulta- 
dos sorprendentes. 




THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 

u/doto 




1 1 1 JJ 












u o 


. ® 







Software 
educativo 



dad: 



años 




Nombre 

Apellidos 

Dirección 

Población 

D.P 

Forma de pago: 



t Tavlor "POPULAR 
COMPUTER WORLD": 

comprobar la efectividad de la 
sugestión de imágenes como , 
Amento de aviula a la retención... 



-"PERSONAL COMPUTER 
WORLD": 

"Un suceso fuera de sene 



crióte " co ^vnR 

m 'cresa n te. " elmás 



A LA VENTA EN GALERIAS 
PRECIADOS Y EL CORTE INGLES 



plu/ 

Programas de EAO para EGB. 




I 



Reembolso □ 



.Tino 

Giro postal □ 



Envío talón □ 



H Curso de Inglés 1. a parte. 10 lecciones Linkword. (Cinta) P.V.P. 6.900.-Ptas. 
Curso de Inglés 1/ parte. 10 lecciones Linkword. (3,5"-Disk) P.V.P. 7.900.-Ptas. 
ENVIAR ESTE CUPON A: PLUS DATA, S.A. C/. GRAN VIA, 661 pral. 08010-Barcelona. Tel. 246 02 02 



Editorial 



LAS PATAS CORTAS 

El rumor como la mentira tiene patas 
cortas, dice el dicho. El rumor que nos 
concierne corrió como reguero de 
pólvora el pasado año y consistía en el 
fulminante éxito de aparatos como el 
Amstrady el Spectrum Plus. Tal éxito 
implicaba la derrota por K.O. del MSX. 
Nada de esto era cierto, pero muchos 
lectores se habrán sentido incómodos al 
ver cómo otro sistema desplazaba a 
aquél en el que tanto confíaba él y 
nosotros. Sin embargo, a la larga todo se 
esclarece y es el mismo púbhco el que 
determina el alcance y persistencia de 
un producto en el mercado. 
Al cierre del ejercicio anterior las ventas 
de aparatos MSX según información de 
los principales fabricantes y 
distribuidores del sistema-, han sido 
espectaculares, llegando a agotarlas 
existencias en muchos casos. La 
situación actual de la norma es más 
saludable que nunca y permite suponer 
que las presuntas competencias de otros 
aparatos, cuyas marcas oscilan entre un 
nombre y otro, según los vaivenes 
económicos de sus fabricantes, no es tan 
real como parece. 

El panorama como vemos es optimista 
para la norma MSX, sobre todo porque 
sus niveles de compatibilidad crecen 
(IBM acaba de lanzar un nuevo aparato 
con diskettes de 3,5 pulgadas ) 
facilitando su asentamiento. De todos 
modos este optimismo se ha de seguir 
alimentando con hechos. Por un lado los 
fabricantes creando más software de 
calidad y periféricos y facilitando una 
mayor información de sus productos, 
tanto a través de la publicidad como del 
periodismo; y por otro, los usuarios 
manteniendo su fe, haciendo oídos 
sordos a los rumores. Entre unos y otros, 
la prensa especializada sirviendo de 
vehículo tanto a fabricantes y 
vendedores, como a usuarios. Es 
cuestión de organizar bien el equipo. 

MANHATTAN TRANSFEti, SA 
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Input 



TONOS DE COLOR 

Me gustaría saber cómo se 
hace, por ejemplo, un cubo 
pintado por todas sus caras de 
forma que se note la diferencia 
de color entre caray cara. Si se 
puede hacer, claro. 

Oscar Vázquez Viladoms 
Sant Quintí de Medlona 
C BARCELONA) 

Supongo que a Jo que te refie- 
res es a cómo conseguir dife- 
rentes tonalidades de un mis- 
mo color. Esto se puede conse- 
guir, en los MSX de segunda 
generación, con el comando 
PALETTE. que permite la defi- 
nición de la paleta de colores a 
nuestro gusto. 

En los MSX de primera ge- 
neración resulta un poco más 
complicado, aunque también 
es posible. La solución es sim- 
ple. Hay que generar una tra- 
ma de puntos de diferente co- 
lor, con una densidad propor- 
cional al tono de color que de- 
sees. 

Imagina que quieres hacer 
una línea de color naranja. 
Para ello no tienes más que di- 
bujar un punto amarillo, y uno 



rojo, uno amarillo, y otro rojo, 
y así hasta acabar de dibujarla 
línea. Para conseguir un na- 
ranja más claro debes colocar 
dos puntos amarillos entre 
cada punto rojo, etc. 

Este interesante truco per- 
mite generar colores no exis- 
tentes habitualmente en los 
MSX, como son el marrón o el 
naranja. Hemos de avisar que 
en la mayoría de los casos los 
colores se complementan de 
forma que no se aprecia que es- 
tén formados por conjunción 
de otros; pero hay que probar 
todas las combinaciones para 
llegar a dominar este truco, 
muy utilizado por los progra- 
mas de Juegos comerciales. 



FOTOS DE PANTALLAS 
DE TV MONITOR: 

¿Pueden decirme la forma de 
hacer buenas fotos de panta- 
llas de TV o monitor? 

Manuel Rodríguez López 
CACE RES 

El resultado de las fotos rea- 



LA BARRERA DE LAS 
40 COLUMNAS 



A causa de que estoy reali- 
zando un programa, necesita- 
ría reducir el tamaño de los ca- 
racteres. He leído que para ello 
es necesario ocupar áreas de 
memorias reservadas o espe- 
cificadas al MSX-2, consi- 
guiendo así 64 caracteres por 
línea. ¿Es cierto esto? ¿Cómo 
puedo conseguirlo? 

José Florencio Sánchez 
Rúa 

Vigo CPONTEVEDRA) 

En primer lugar no com- 
prendemos por qué nos hablas 
de MSX-2 (segunda genera- 
ción de MSX), ya que estos 
cuentan con pantalla de 80 co- 
lumnas. Para conseguirlo no 
hay más que teclear WIDTH 
80. 

Suponemos que te refieres a 
las zonas de memoria del 
MSX-DOS (sistema operativo 
de disco MSX). La respuesta a 
tu pregunta es sencilla; pero 
no tan sencilla de llevara cabo. 

En primer lugar, debes sa- 
ber que el VDP ( chlp de panta- 
lla ) de los MSX de primera ge- 
traba- 



Jar con 40 columnas. Por lo 
tanto es imposible hacerlo tra- 
bajar con más de 40 columnas. 

Si deseas utilizar 64 colum- 
nas sólo te caben dos opciones: 
cambiar el VDP, o bien no utili- 
zar caracteres. 

No utilizar caracteres quie- 
re decir que no se pueden utili- 
zar los caracteres normales 
(los que utiliza el comando 
PRINT), sino que debemos de- 
finir un set complementario y 
dibujarlos caracteres. 

En los MSX de primera ge- 
neración es posible simular 64 
columnas en SCREEN 2 si di- 
bujamos cada uno délos carac- 
teres como una trama de 4 x 8 
caracteres. Este efecto se pue- 
de lograr fácilmente median- 
te el macrocomando DRAW; 
pero es muy lento, por lo que se 
precisa de una rutina en en- 
samblador. 

Nuestro equipo de progra- 
madores ya está trabajando, 
desde hace algún tiempo en la 
generación de esta rutina.; por 
lo que esperamos que, no den- 
tro de demasiado tiempo, po- 
damos incluir dicha rutina en 
nues¡ 




fizadas sobre una pantalla de- 
pende mucho de las condicio- 
nes en que ésta sea tomada. Te 
enumeramos a continuación 
algunas normas a tener en 
cuenta a la hora de realizar las 
fotos. 

En prlm er lugar in ten ta evi- 
tar todo tipo de reflejos en la 
pantalla. Para ello deja a oscu- 
ras la habitación en la que se 
encuentre la pantalla. Debido 
a esto debes tomar también la 
foto sin flash. 

Ajusta los controles de brillo 
y contraste del monitor de 
modo que la imagen adquiera 
un colorido brillante; pero no 
exagerado. 

Ajusta la cámara a una dis- 
tancia de unos 40 cm. de la 
pantalla. Las fotos resultarán 
mucho más claras si las fijas 
con un trípode. 

Selecciona una velocidad en- 
tre 1/30 y 1/60 de segundo y co- 
loca el diafragma entre 2 y 4. 
Estas dos últimas especifica- 
ciones están indicadas para 
una película de sensibilidad 
normal, de 100 ASA. 

Ya sólo te queda disparar. 
Como te hemos dicho antes, 
los resultados pueden variar 
dependiendo de las condicio- 
nes en que realices la fotogra- 
fía. Asimismo, variarán en 
caso de que utilices un macro o 
algún otro objetivo especial. 



VIDEO INV] 
LOS MSX-2 

Poseo un ordenador PHI- 
LIPS MSX-2 desde hace unos 
meses y me estoy dedicando al 
estudio serio de la informática 
con vistas a hacerme mis pro- 
pios programas. Todo ello en 
BASIC. Al entrar a mi aparato 
me encontré con una pequeña 
pega: ¿cómo poder conseguir 
textos en VIDEO INVERSO en 
SCREEN O y WIDTH 80? 

Manuel Renedo Gil 
Sta. Cruz de Tenerife 

En primer lugar hemos de 
felicitarte por tu empeño en 
desarrollar tus propios pro- 
gramas de utilidad, y anima- 
mos a todos a que se dediquen a 



la programación todo cuanto 
puedan ya que es ésta la única 
forma de utilizar al máximo 
las posibilidades de vuestro or- 
denador. 

Ya comentamos en otra oca- 
sión cómo conseguir vídeo in- 
verso en los MSX ( de primera 
generación ), por lo que no tra- 
taremos en detalle cómo fun- 
ciona el SET de CARACTERES 
en la VRAM. Simplemente in- 
cluimos a continuación el pro- 
grama que imprime carac- 
teres en vídeo inverso. Para 
ello debes imprimir cada ca- 
rácter más el código 128 (ob- 
serva el listado ). Recuerda que 
pierdes los caracteres gráfi- 
cos. Puedes mejorar, sin em- 
bargo, el programa con poco 
que te lo propongas. 

1 FOR X= 4096 T0S119 
20 VPOKE X + 1024, VPEEK 
(X)X0R2S6 
30NEXTX 

40 At = "Este mensaje apare- 
ce en vídeo Inverso". 
50 FOR X= 1TO LEN (AS) 
60 PRINT CHR$ (128+ASC 



¿REOLAS DE 

NUESTROS 

PROGRAMAS? 

Quisiera que me respondié- 
rais a algunas preguntas so- 
bre vuestro concurso de pro- 
gramas. 

—¿Se pueden mandar pro- 
gramas para unidades de dis- 
co? 

-¿Existe algún límite en ex- 
tensión? 

Carlos Márquez Reyes 



Hemos de deciros, a ti, y to- 
dos los interesados en nuestro 
concurso de programas, que 
no hay ninguna limitación te- 
mática en nuestro concurso. 
Así, tampoco hay limitación de 
memoria, aceptándose por 
tanto, los programas de orde- 
nadores de la segunda genera- 
ción. 
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AMPLIACION DE MEMORIA 
EN ELHB-lOl/P 



Evidentemente, la mayoría 
de nuestros lectores no tienen 
unidad de disco, por lo que la 
mayoría de los programas que 
publiquemos serán para orde- 
nadores con cassette; pero re- 
sulta Interesante que nos en- 
viéis programas de todo tipo, 
para así poder satisfacer a to- 
dos los lectores de una forma 
equitativa. 

Evidentemente, los criterios 
seguidos por nuestro Jurado 
son múltiples, y el hecho de 
que no hayamos publicado an- 
teriormente programas en 
disco, ha sido que no hemos re- 
cibido programas de la sufi- 
ciente calidad. Sí, sin embargo, 
hemos pubüdado varios artí- 
culos dedicados a este tema, al 
MSX-2, y los otros muchos 
apartados que podemos en- 
contrar dentro del mundo de 
losMSX. 




SISTEMA OPERATIVO 



Tengo un Spectravídeo SV- 
728. ¿Es posible trabajar con 
el sistema operativo MS-DOS? 

Mikel Amunarrit 
Fuenterravía 
(GUIPUZCOA) 

Los ordenadores MSXno so- 
portan el sistema operativo 
MS-DOS, ya que este sistema 
operativo se encuentra sólo 
disponible en ordenadores de 
1 6 bits, como el IBM PC y com- 
patibles. Los MSX cuentan con 
una adaptación de este siste- 
ma operativo, que es lo que co- 
nocemos como MSX-DOS, y 
que ha sido desarrollado por 
Mlcrosoñ, que también desa- 
rrolló el MS-DOS. 

Lamentablemente, los pro- 
gramas que corren bajo siste- 
mas operativos MS-DOS no lo 
hacen sobre MSX-DOS; perc 
no por culpa del sistema ope- 
rativo, ya que el MSX-DOS 
mantiene la compatibilidad de 
las llamadas de la BIOS, sino 
por culpa del Z-80A, Incapaz 
de ejecutar las instrucciones 
del Intel 8088. o del Intel 8086. 



Poseo un Sony HB- 1 1 P con 
32 Kb de RAM (+ 16 Kb de 
VPuAM ) , ROM de 48 Kb ( inclui- 
dos 16 Kb del Personal Data 
Bank). Ante la imposibilidad 
de cargar programas de más 
de 32 Kb, adquirí un cartucho 
de ampliación de memoria. La 
ampliación permite cargar 
programas de 64 Kb como 
Alien 8; pero sin embargo se 
"cuelga" con otros como 
NightShade. ¿Por que sucede 
esto? ¿Cómo se puede solucio- 
nar? 

Rafa Flores Yoldl 
Pamplona (NAVARRA) 

El problema que comentas 
se debe a la especial configura- 
ción de la memoria que tiene 
tu ordenador, y a que los pro- 
gramas que comentas (los que 
no funcionan), no hacen un 
uso correcto de las rutinas de 
paginación de memoria. En 
primer lugar hemos de agra- 
decerte que nos enviases los 
mapas de memoria de tu orde- 
nador (que reproducimos a 
continuación ), ya que nos ha 
facilitado en gran medida el 
poder responder a tu carta. 
Aprovechamos estas líneas 
para pedir a otros consultan- 
tes que nos envíen el máximo 
de información Junto con sus 
dudas. No nos basta con saber 
que un programa no funciona 
para saber cuál es la posible 
causa. 

El problema es fácil de loca- 
lizar y modiñcar si tienes unos 
ligeros conocimientos de len- 



guaje ensamblador. Muchos 
programas presuponen que 
los 64 Kb del ordenador están 
en un mismo SLOT. Esto ocu- 
rre en la mayoría de los MSX; 
pero no en todos. Se utiliza una 
rutina similar a la que inclui- 
mos a continuación. 

(1) LNA, (*A8) 

(2) AND FO 

(3) LD B,A 

(4) SHRA 
SHRA 
SHRA 
SHRA 
SHRA 

(6) ADD A, B 

(6) OUT(*A8),A 

(7) RET 

En primer lugar carga el 
banco que actualmente se esté 
utilizando. El programa se 
basa en que actualmente el 
programa está en RAM. En la 
línea 2 ( evidentemente los nú- 
meros están solo para aclarar 
la explicación ) eliminamos 
los 4 bit menos significativos 
del número de banco. Es decir, 
nos quedamos sólo con el códi- 
go de banco de las dos zonas de 
RAM ( de los 8 bits, la mitad su - 
perlor, que corresponden a los 
32Kb superiores de la memo- 
ria, ocupada por la RAM). En 
la linea 4 desplazamos 4 luga- 
res hacia la derecha el código 
de los bancos de RAM, y en la 
línea 5 le sumamos los 4 bits 
superiores. Hemos conseguido 
de este modo una copia de los 4 
bits superiores en los 4 bits in- 




feriores. Si al comenzar el pro- 
grama en la parte superior ha- 
bía RAM, la habrá ahora en la 
zona inferior. En la línea 6 co- 
nectamos el banco calculado y 
en la 7 acabamos la rutina. 

Como ves, esta rutina no 
funcionará en tu aparato. So- 
lucionar este problema no es 
difícil. En primer lugar debes 
localizar en el programa (con 
ayuda de un desensamblador ) 
una rutina similar a esta. Y 
sustituirla por un: 

LDA&50 

OUT (#A8), A si utilizas el 
SLOT 1 para conectar la am- 
pliación o bien 

LDA, *AO 

OUT (*A8), A si utilizas el 
SLOT 2 para conectar la am- 
pliación. 

Esperamos que con esto 
consigas hacer funcionar to- 
dos tus programas. 



r 
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Input SOutput 



■si.. (n; 



En los MSX sólo disponemos 
de 28 Kb si trabajamos en BA- 
SIC, y dispondremos del resto 
de la memoria si trabajamos 
en código maquina. 

Si trabajamos en COBOL, al 
compilar el programa, es de- 
cir, traducirlo a código máqui- 
na; ¿podremos disponer de 
toda la memoria?, es decir, ¿en 
un MSX-2 de 128 Kb podemos 
hacer un programa de 1 OOKb? 

¿Es verdad que los discos 
grabados en otros MSX no car- 
gan en el Spectravideo 
XTRESS? 

Javier Urom y José A. 

Lomas 

Terrassa (BARCELONA) 

Como bien decís, en BASIC 
sólo contamos con 28 Kb de 
memoria ( 24 si está conectada 
la unidad de disco). Para utili- 
zar el resto de la memoria de- 




bemos trabajar en ensambla- 
dor. Como ya hemos comenta- 
do en anteriores ocasiones, el 
Z-80, chip que controla los 
MSX de ambas generaciones, 
sólo puede trabajar con 64 Kb 
de memoria. Esta es la memo 
ria máxima accesible desde el 
sistema operativo. Debemos 
decirte, muy a pesar nuestro, 
que probablemente no puedas 
superar los 64 Kb aunque pro- 
grames en COBOL. Unicamen- 
te podrías superar esta barre- 
ra sí tu compilador de COBOL 
mese capaz de manejar los 
bancos de memoria. No cono- 
cemos ningún compilador de 
COBOL MSX que maneje los 
bancos; pero al ser éste un pro- 
grama de poca difusión pue 
den existir otras versiones no 
conocidas por nosotros. 

Tu segunda pregunta es un 
poco más complicada de res 
ponder. Los discos «normales" 
son compatibles, tanto en el 
Spectravideo X'Press, como en 
cualquier otro MSX. De esta 
manera, todo programa puede 
pasarse de un MSX a otro. Sin 
embargo, algunos MSX, como 
los nuevos modelos de X'Press 
o los MSX-2, incorporan uni- 
dades de alta capacidad. Por 
ejemplo, la unidad de alta ca- 
pacidad de los MSX-2 permite 
almacenar 720Kb en un solo 
disco. Evidentemente, este dis- 
co no puede ser leído con un 
MSX de la primera genera- 
ción, que sólo lee 360 Kb. Sin 
embargo, con el MSX-2 puedes 
grabar también discos de 360 
Kb (las unidades de alta capa- 
cidad pueden grabar en los dos 
formatos). En resumen: si de- 
seas que un disco pueda ser leí- 
do por otro MSX debes grabar- 
lo en formato de 360 Kb. Dirí- 
gete al manual del DISK-BA- 
8IC o del MSX-DOS para saber 
como efectuar estas grábacio- 






SKY HÜHTER. Un magnífico Juego de simula- 
ción de vuelo. En él te conviertes en un piloto 
que ha de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 




LORD WATÜ0N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
cabulario son los alicientes . PVP. 1.000 pts. 



CON GARANTIA 

/MANHAT1AN TRANSFEPSA 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 




HARD 



mmm 



POR JOAQUIN LOPEZ 

Menús por ventanaa - tres 
formatos de coplaa simulación 
en blanco y mjrn copla 
«prites > ra define colora* 
compatible ron cualquier 
impresora mntricial 



CON GARANTIA 



HARD COPY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copla sprlies, redefinlc. de colores, 
compatible con todas las impresoras ma- 
trlc.PVP. 2.500 Pts. 




¿Cómo corregir los errores 
de transcripción de los 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 

/HANHATW TRANSFERI 



TEST DE LISTADOS. El segundo programa de 
la Serle Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLUB y MSX EXTRA. 
PVP.600Pt8. 



NUDOS A 



club 




QUINIELAS 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



El secreto de la 



Ü-B0OT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



CON GARANTIA I 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP. 600 Ptas. 




rafe» 



EL SECRETO DE LA PIRAMIDE. Atrevido 
Juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete sí 
puedes! PVP 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 

Si quieres recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 



FLOPPY. El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo. PVP 1 000 Ptas. 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es 3u misión Diez niveles 
de dificultad. PVP 1000 pts. 



n 



Nombre y apellidos: 

Dirección: 

Población: 



~1 



CP 



Tel.: 



□ KRYPTON 

□ UBOOT 

□ QUINIELAS 

□ HARDCOPY .... 

□ LORDWATSON 



Ptas. 500,- 
Ptas. 700,- 
Ptas. 700,- 
Ptas. 2SW- 
Ptas. 1.000- 



j^Gastos de envío certificado por cada cassette 



□ SNAKE Ptas. 600- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700,- 

□ STAR RUNNER Ptas. 1.000,- 

□ TE8T DE LISTADOS Ptas. 500,- 



Ptas. 70,- Remito talón nanearlo de Ptas. 



□ FLOPPY .. 

□ MAD FOX 

□ VAMPIRO 

□ SKYHUNTER 



Ptas. 1.000,- 
Ptas. 1.000,- 
Ptas. 800- 
Ptas. 1.000,- 



a la orden de Manhattan Transfer, 8 A 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



MITSUBISHI ML-30 FD UNIDAD DE DISCOS 




Incluimos en nuestra sección BANCO DE PRUEBAS el test realizado a la unidad de discos Mitsubishi ML-30FD. Res- 
pondemos de este modo (y con otros test que estamos realizando) a las demandas de algunos lectores sobre uno de los 
periféricos más importantes de los MSX. 



PRIMERA IMPRESION 



Nada más desembalar la ML- 
30FD nos damos cuenta de que 
estamos ante una unidad singu- 
lar. Su exterior, atractivo y funcional, nos 
da una veraz impresión de las posibili- 
dades de este periférico. 

En primer lugar destaca su posición 
vertical, frente a la posición horizontal 
de la gran mayoría de unidad de disco. 
Este modo de disponer la unidad, aparte 
de original entre los MSX, resulta extre- 



madamente práctico, ya que nos permi- 
te un mayor aprovechamiento del espa- 
cio de trabajo (por lo general reducido). 



EL FRONTAL DE LA UNIDAD 

La unidad presenta una ergonomía 
bastante buena (recordamos que la er- 
gonomía es la mayor o menor capaci- 
dad de un aparato para ser usado por 
los humanos: facilidad, comodidad, 
practicidad, etc). La única duda que 
aborda al que ya ha trabajado con otras 



unidades es cómo se introduce el disco. 
En una unidad convencional esto es cla- 
ro: la parte superior del disco hacia arri- 
ba y la inferior hacia abajo. Pero en esta 
unidad, no se sabe si colocar la parte su- 
perior a la izquierda o a la derecha. Un 
rápido vistazo al manual ños saca de du- 
das: la parte superior hacia la izquierda. 

En el frontal se distinguen varias par- 
tes importantes: el orificio para introdu- 
cir el disco 1 , el botón de expulsión del 
disco, y el led de funcionamiento del dis- 
co. También encontramos en el frontal 
el interruptor de encendido y el led que 
indica que la unidad se halla conectada. 
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Tabla de velocidades de la unidad de disco Mitsubishi ML-30FD 



Pero el punto más importante a destacar 
del frontal de esta unidad, es que incor- 
pora un espacio dedicado a poder incor- 
porar una segunda unidad. Esta segun- 
da unidad de disco se suministra por se- 
parado; pero como la alimentación, la 
carcasa y el controlador de disco ya es- 
tán incorporados en la primera unidad, 
su precio es claramente inferior. Esta 
característica la hace especialmente 
atractiva a aquellos usuarios que de- 
seen utilizar su MSX con dos unidades 
de disco de forma simultánea. 




Grabación de 1024 fichas de un carácter 33 seg. 

Grabación de un bloque de 16 Kb 6 seg. 

Lectura de un bloque de 16 Kb 8 seg. 

Abrir y cerrar un fichero 100 veces 1 min. 2] 




Especificaciones 



Generalidades 



Consumo de energía 16 W 

Condiciones ambientales 8 - 38°C, 20 - 80% HB 

Dimensiones (AxGxH) 86 x 270 x 166 mm 

Peso 2,8 kg 



Unidad de disco microflexible 



Capacidad de almacenamiento 

No ajustado a formato im byte 

Ajustado a formato 720Kbytes 

Velocidad de transmisión 280K bits/seg. 

Tiempo de acceso 

Pista-a-pista 12 ms 

Acceso promedio .... 33 1 ms ( incluyendo anillo de búsqueda y f 1J o ) 
Tiempo de anillo fijo 18 ms 




EL PANEL TRASERO 



El panel trasero demuestra una senci- 
llez extremada. En él sólo encontramos 
el cable de conexión a la red eléctrica y 
el cable que la comunica con el controla- 
dor de disco, instalado en una ranura de 
cartucho del ordenador. 

Resulta, por tanto, muy sencillo insta- 
lar la unidad, aunque no se tenga ningún 
conocimiento previo. Para instalar la 
unidad sólo hay que conectarla al con- 
trolador con un sólo cable y enchufar la 
unidad al enchufe más próximo. 



EL CONTROLADOR DE DISCOS 



El controlador de discos es el aparato 
encargado precisamente, como su 
nombre indica, de controlar a la unidad 
de disco. Este controlador, como la ma- 
yoría de los existentes sobre MSX es 
capaz de controlar dos unidades de dis- 
co. En el caso de este modelo, la segun- 
da unidad debe instalarse en la carcasa 
de la primera, en el espacio que tiene re- 
servado para ello. 

El controlador de discos de la unidad 
de Mitsubishi es el ML-30DC. Este con- 



trolador, como la mayoría de los prepa- 
rados para MSX se conecta al ordena- 
dor por medio de los conectores de car- 
tucho. Uno de los inconvenientes que 
hemos encontrado al controlador (com- 
partido por otros muchos consoladores 
MSX) es su elevada altura, de modo 
que, si tenemos colocado el televisor o 
monitor detrás del ordenador inevitable- 
mente tapa parte de la imagen. 

El tipo de cable utilizado para la cone- 
xión entre el controlador y la unidad de 
disco es de tipo banda. Este tipo de ca- 
ble tiene la ventaja de ser muy flexible, y 
difícil de romper, pero, a cambio, resulta 




9 



más incómodo. Mitsubishi ha optado en 
este caso por la seguridad en su unidad 
de disco. 

ESPECIFICACIONES 
TECNICAS 

La unidad cuenta con una capacidad 
de almacenamiento en disco de 1 Mb, 
que queda reducido a 720Kb al forma- 
tear el disco. La velocidad de transmi- 



sión es de 250 Kbits por segundo, mien- 
tras que el tiempo de acceso pista a pis- 
ta es de 1 2 milisegundos. 

La densidad de almacenamiento, 
como en el resto de las unidades MSX 
es de 8.700 bits por pulgada. Como de- 
talle curioso sabed que la unidad gira a 
una velocidad de 300 revoluciones por 
minuto. 

Para una mayor información os adjun- 
tamos una tabla de características téc- 
nicas. 



VELOCIDAD DE LA UNIDAD 

Existen muchos parámetros utiliza- 
dos para medir la velocidad de una uni- 
dad de disco; pero, indudablemente, el 
medio más eficaz para medir la veloci- 
dad de una unidad es realizar un BEN- 
CHMARK, (banco de pruebas) consis- 
tente en cronometrar diversas operacio- 
nes con los resultados a nuestros ban- 
cos de pruebas. 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 



PIÉ 



.fe 



MSX 2." Edición 

N.~ 1,2,3,4 -450 PTAS. 






MSX17 175 PTAS. 



MSX 2." Edición 

N.°» 5,6,7,8 - 475 PTAS. 



YAMAHA CX 5MÍT, /3="^=^ 



MSX18 175 PTAS. 




MSX 2." Edición 57c MSX14 160 PTAS. 

N.° 9,10,11,12,13 PTAS. 



MSX15 175 PTAS. 



MSX 16 175 PTAS. 




MEspecial 



■jé Í/T-;!; 




r 



MSX21 175 PTAS. MSX CODIGO MSX22 175 PTAS. 

MAQUINA - 275-PTAS 
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MSX23 175 PTAS 



MSX 24 1 75 PTAS 



i» 1 S / '«KCBX. '* 

- . I aia:ianee \ 



MSX2S.26 350 PTAS. 




MSX27 225 PT AS. 



¡LA 1. a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

-DPTO. SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 
| — — — BOLETIN DE PEDIDO — - 



Deseo recibir los números 



para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 

Población 



n. c 



de SUPERJUEGOS EXTRA MSX 
a la orden de Manhattan Transfer, S A. 



DP. 



Tel.: 

Ppqv. " No 86 admita contrarreembolso» I 
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3? GRAN 



PROGRAMA 



CONCURSO 



■ DEL AÑO 




CREA Y ENVIANOS TU PROGRAMA. 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



BASES 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A — Educativos 

B— Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIAS. 

I 



4 -No entrarán en concurso aquellos 
programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
mismo. 

PREMIOS 

7 - MSX EXTRA otorgará los siguientes 



~l 




TITULO 



CATEGORIA 

PARA K 

INSTRUCCION DE CARGA 

AUTOR: 
EDAD: 

CALLE: 

CIUDAD DF 

N.° DE RECEPCION 



L 



premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

Programa de Entretenimiento 

6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro Departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada numero de MSX 
EXTRA. 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes. 



CONCURSO MSX 
EXTRA 

RocaiBatlle, 10-12 
bajos 

08023 Barcelona 



..J 



CALLVIII 



MEJORARIA 




La programación en BASIC tiene sus limitaciones. En estas páginas se muestran algunas posibles soluciones. 



El problema del BASIC es que re- 
sulta fácil construir programas 
que funcionan. 
Mientras se desarrolla uno de estos, 
el programador va poniendo "parches" 
ahí donde son necesarios. El resultado 
es un programa que, en la mayoría de 
los casos, funciona mal, aunque a pri- 
mera vista no lo parezca. Por si ello fue- 
ra poco, será muy costoso depurarlo o 
modificarlo y resultará casi ininteligible 
para el resto de los mortales. 

Sin embargo, esto no implica que to- 
dos los programas escritos en BASIC 
tengan defectos notorios. Es corriente 
encontrar listados poco optimizados, 
que consumen mucho tiempo al ser eje- 
cutados y derrochan más memoria de la 
que deberían. Aquí tienes un ejemplo 
que ocurre todos los días. 



LISTADO 1 



10 A=i:B=i:C=i:D=i:E=l:F=l 

20 TIHE=0 

30 FORX=OT0500: 'BUCLE DE ESPERA 

40 NEXT X 

50 PRINTTIHE/50 



Supon que las líneas anteriores for- 
man parte de un programa más largo y 
que es importante que el bucle conteni- 
do en ellas se ejecute lo más rápido po- 
sible. Si haces RUN, observarás que el 
tiempo empleado en el proceso es de 
1.66 segundos (o algo similar). Pues 
bien, prueba a eliminar los dos puntos 
de la línea 30 y el comentario que le si- 
gue. Al correr el programa, el tiempo de 
ejecución pasa a ser de 1 .08 s. 

Se ha conseguido un ahorro sustan- 
cial, pero aún puede mejorarse. Elimina 
la línea 10 y comprobarás que el bucle 
se completa en sólo 0.98 s. Si además 
quitas la I ínea 40 y pones el "NEXT X" al 
final de la línea 30, el programa no varia- 
rá pero el tiempo invertido en el bucle 
pasará a ser de 0.96 segundos. 

A continuación, bórrala "X" que sigue 
a "NEXT" y verás como el tiempo se re- 
duce a 0.78 s. 

Aún resta una modificación, que es la 
que consigue un mejor ahorro de tiem- 




po: intercala entre la "X" y el " = " el sím- 
bolo "%", correspondiente a las varia- 
bles enteras. El programa corre ahora 
en sólo 0.28 segundos, es decir, la sexta 
parte de lo que invertía el original. 

Aquí tienes un resumen de los acon- 
tecimientos: 

Programa original 1 .66 

Sin comentario 1 .08 

Sin línea 10 0.98 

Poniendo el NEXT X en la línea 

30 0.96 

Quitando la X después del 

NEXT 0.78 

Usando una variable entera 0.28 



Por todo esto, es recomendable res- 
petar ciertas normas cuando se desea 
que la ejecución sea lo más rápida posi- 
ble: 

• Las variables que se definen al 
principio de un programa son las de ac- 
ceso más rápido. 

• Los comentarios influyen negativa- 
mente en la velocidad de ejecución. 

• Es conveniente situar las rutinas de 
velocidad crítica al principio del progra- 
ma. 

Usar "NEXT" en favor de "NEXT va- 
riable". 

• Emplear, en lo posible, variables 
enteras o, en el peor de los casos, rea- 
les, en preferencia a las de doble preci- 
sión. 



LOS PROGRAMAS "ESPAGUETI" 

El abuso de instrucciones condiciona- 
les anidadas, puede conducir a un pro- 
grama enrevesado y confuso. Lo que en 
el argot se denomina programa "espa- 
gueti". Observa la siguiente línea: 

10 IF A<2 AND B>0 AND C<1 AND 
D<1 THEN R=10 ELSE R=0 

Este ejemplo no es, ni con mucho, un 
derroche de confusión. Todos hemos 
construido programas en los que había 
líneas bastante peores que la anterior. 
De cualquier forma, sirve como ejemplo. 

Observa como se puede hacer lo mis- 
mo empleando algo más corto y, por 
consiguiente, más claro: 

10 R=-10*(A<2)*(B>0)*(C <1)* 
(D<1) 

Sin lugar a dudas, existe cierto desco- 
nocimiento sobre los operadores lógi- 
cos del BASIC, a pesar de que todos los 
manuales que acompañan a las máqui- 
nas son lo suficientemente claros al res- 
pecto. Prueba de ello es que se siguen 
recibiendo listados con líneas como: 

10IFAO0 THEN... 

Naturalmente se puede conseguir lo 
mismo con: 

10 IF A THEN... 

Cosas como éstas no pueden ser ta- 
chadas de grandes errores, pero dicen 
bastante sobre la falta de cuidado (o de 
preparación) del que los comete. 

Sin ir muy lejos, hace unas semanas 
se recibió un programa que conmutaba 
el tipo de SPRITE en plena ejecución. 
Como probablemente sabrás, no es po- 
sible emplear la instrucción SCREEN 
para cambiar el tipo de SPRITE sin bo- 
rrar todas las figuras definidas. Pues 
bien, en el listado en cuestión se aprove- 
chaba el hecho de que el registro 1 del 
VDP determina el tipo de SPRITE, así 
pues es suficiente con "encender" el bit 
uno del referido registro para ampliar los 
SPRITES, si aún no lo estaban. La argu- 
cia empleada era esta: 

10A$=BIN$(VDP(1)) 

20MID$(A$(7,1))="1" 

30 VDP(1)=VAL("&B"+A$) 

La solución es ingeniosa, pero es mu- 
cho más simple hacer: 

10VDP(1)=VDP(1)OR3 

Por otra parte, si lo que se desea es 
cambiar a cualquier tipo y/o ampliación, 
habrá que usar: 

10 VDP(1)=No. de TIPO+(VDP(1) 
AND252) 
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Si no tienes muy claro el funciona- 
miento de los operadores lógicos, te re- 
comiendo encarecidamente que consul- 
tes tu manual, que seguramente conten- 
drá más información de la que se podría 
dar a través de estas páginas. 

INSTRUCCIONES 8 0F 

Dos instrucciones que no se usan lo 
que deberían son ON GOTO y ON GO- 
SUB. 

Así, es corriente encontrar listados 
con líneas parecidas a estas: 



LISTADO 2 



1 IF A=l THEN 10 

2 IF A=10 THEN 20 

3 IF A=100 THEN 30 

4 IF A=1000 THEN 40 

5 IF A=100 



Observa que todas las líneas anterio- 
res pueden ser sustituidas por una sola: 

1 ON 1 +LOG(A)/LOG(10) GOTO, 10, 
20, 30, 40, 50 

Otra instrucción poco utilizada es ON 
KEY GOSUB. 

Supón que estás construyendo un 
programa en el que el usuario tiene que 
entrar datos desde el teclado (una agen- 
da, por ejemplo). En este caso sera útil 

3ue el operador pueda, siempre que lo 
esee, dejar la operación que estaba 
ejecutando y solicitar, digamos, una 
pantalla de ayuda. Está clara la ventaja 
que supone usar ON KEY GOSUB para 
detectar las interrupciones y efectuar la 
función reclamada por el usuario. 

Tras la pulsación de una de las teclas 
de función, es muy probable que la pan- 
talla sea borrada y se aborte la tarea que 
se estaba realizando en el momento de 
la interrupción. El problema es que ON 
KEY GOSUB actúa como subrutina y 
espera encontrar un RETURN al final. 
Puesto que suele ser imposible volver al 
mismo punto desde el que se partió, lo 
normal es pasar la ejecución a la parte 
principal (típicamente al menú), usando 
un RETURN seguido de un número de 
línea. 

Hasta aquí todo va bien, pero hay que 
tener presente que las llamadas a su- 
brutinas almacenan la línea de retorno 
en la pila del BASIC. Teclea estas I íneas 
y lo comprobarás: 

10 GOSUB 20 

20 GOSUB 10 

Como ves, si no se desapilan correc- 
tamente todas las llamadas a subrutinas 
se termina por llenar la memoria con da- 
tos inútiles. 

La solución es emplear otra instruc- 
ción "ON": ON ERROR GOTO. 



En efecto, sólo hay que poner al final 
de la rutina de interrupción una línea 
como: 

20 RETURN 20 

Cuando el programa ha desapilado 
todas las llamadas, se produce un error 
del tipo "RETURN without GOSUB". Si 
con anterioridad se ha previsto una ruti- 
na de tratamiento de errores, el progra- 
ma no se detendrá y la ejecución pasará 
al tronco principal: 

1 ON ERROR GOTO 2 

2 RESUME 3 

3 ' MENU PRINCIPAL 

En fin, espero haber hecho lo suficien- 
te para que te sientas tentado a cuidar 
más la realización de los programas, sin 
conformarte con el mero hecho de que 
funcionen. Al final, todos nos agradece- 
mos haber completado un programa sin 
"parches", sobre todo después de ha- 
bernos peleado con algunos "espague- 
tis". 



LISTADOS, DE VARIABLES 

Una buena forma de pulir la progra- 
mación es observar como otras perso- 
nas resuelven sus problemas. Ya que 
los listados suelen ser largos, hay que 
empezar por hacer una relación de to- 
das las variables y anotar la función de 
cada una de ellas. A tal efecto, me ha 
parecido útil construir una rutina que sir- 
va para eso: listar todas las variables de 
un programa BASIC, especificando su 
nombre, su tipo y si son o no de conjun- 
to. 

Confío en que te será de alguna ayu- 
da. 

A continuación se incluye el listado en 
ASSEMBLER y el cargador de líneas 
DATA. Te recomiendo que grabes los 
bytes de la rutina con BSAVE y así po- 
drás recuperarla con BLOAD. Hay dos 
puntos a tener en cuenta. El primero es 
que se debe ejecutar el programa BA- 
SIC en su totalidad para que las varia- 
bles sean definidas. Si modificas una lí- 
nea, se borrarán todas ellas de la me- 
moria. El segundo punto es que hay que 
llamar a la rutina con ?USR (0), para sa- 
lida por pantalla, o ?USR (1 ), para salida 
por impresora. En cualquier caso, debes 
lanzarla con DEFUSER=&HD000. 



LISTADO 3 



10 ORG tDOOO 

20 LD (PILA),SP 

30 CALL *CC 

40 LD A, 12 

50 CALL IA2 

60 LO HL.SIH 

70 LO IY.IF6C2 

80 LD E,0 



90 


CALL PRG 


100 


INC 


IY 


110 


INC 


IY 


120 


LD 


HL.C0N 


130 


LD 


E,l 


140 PRG: 


CALL MES 


150 


LD 


HL,ENT 


160 


LD 


A,2 


170 


CALL PVAR 


180 


LO 


HL, REAL 


190 


LD 


A, 4 


200 


CALL PVAR 


210 


LD 


HL, DOBLE 


220 


LD 


A,8 


230 


CALL PVAR 


240 


LD 


HL, CADENA 


250 


LD 


A, 3 


260 


CALL PVAR 


270 


RET 




280 PVAR: 






290 


CALL MES 


300 


LD 


L,(IY+0) 


310 


LD 


H,(IY+1) 


320 lo: 


LD 


CUY+2) 


330 


LD 


B, (IY+3! 


340 


0R 


A 


350 


SBC 


HL.BC 


360 


ADD 


HL, BC 


370 


RET 


2 


380 


PUSH HL 


390 


POP 


n 


400 


LD 


B,0 


410 


LD 


C,(HL) 


420 


INC 


C 


430 


INC 


C 


440 


INC 


C 


450 


DEC 


E 


460 


INC 


E 


470 


JR 


2, SUMA 


480 


INC 


HL 


490 


INC 


HL 


500 


INC 


HL 


510 


LD 


C,(HL) 


520 


INC 


HL 


530 
540 


LD 
INC 


B, (HL) 
BC 


550 SUMA: 


ADO 


HL , BC 


560 


CP 


(IX+0) 


570 


JR 


N2,L0 


f fiA 

580 


LD 


A,(IX*1) 


r Ci a 

590 


QR 


A 


f AA 

600 


RET 


2 


610 


CALL PRINT 


620 


LD 


A, ( IX+2) 


630 


CALL PRINT 


640 


LD 


A/ ■ 


650 


CALL PRINT 


660 


LD 


A. ( IX+0) 



13 



CALLVIII 



670 

680 MES: 

690 

700 

710 

720 

730 

740 L2: 

750 

760 

770 

780 

790 

800 Ll: 

810 

820 

830 

840 

850 

860 EXIT: 
870 

880 lf: 
890 
900 
910 

920 PRINT: 

930 

940 

950 

960 

970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 

1090 KEY: 



JR LO 

push'af 

CALL LF 
LD A,(#F3B0) 
DEC A 
LO B, A 
PUSH BC 
LO A,"-' 
CALL PRINT 
POP BC 
DJNZ L2 
CALL LF 
LO A,(HL) 
QR A 
JR Z,EXIT 
CALL PRINT 
INC HL 
JR Ll 
POP AF 
RET 

LD A, 13 
CALL PRINT 
LD A, 10 




LD 

LD 

QR 

JR 

LD 

CP 

JR 

LD 

LD 

LD 

DEC 

CP 

JR 

LD 

CP 

JR 



6 A 

a',(IF7F8) 
A 

NZ, LPRINT 
A,(IF3DC) 
24 

N2,0K 

A,(*F3DD) 

C,A 

MtF3B0) 

A 

C 

Z, KEY 

M 

10 

NZ,OK 



CALL I9F 



1100 


CP 3 


1110 


JR Z, ERROR 


1120 ok: 


LD A,B 


1130 


JP IA2 


1140 LPRINT: 


LD A,B 


1150 


CALL tA5 


1160 


RET NC 


1170 ERROR: 


LD SP.(PILA) 


1180 


RET 


1190 sin: 




1200 


DEFH " t»! VARIABLES 


SIMPLES «*'* 




1210 


DEFB 


1220 ENT: 


DEFB 10,9 


1230 


DEFR "Enteras" 


1240 


DEFB 10,10,13,0 


1250 REAL: 


DEFB 10,3 


i2G0 


DEFB 'Reales" 


1270 


DEFB 10,10,13,0 


1280 008LE: 


DEFB 10,9 


1290 


DEFfi "Doble precisi V 


1300 


OEFB iO, 10.. 13.0 


1310 CADENA: 


DEFB 10,9 


1320 


DEF* "Alfanutrieas' 


1330 


DEFB 10,10,13,0 


1340 con: 


DEFB 10,10 


1350 


DEFh "*** VARIABLES DE 


CONJUNTO!**' 




1360 


DEFB 


1370 PILA: 


3EFU 





LISTADO 4 



10 F0RX=¿H0000T0&HD165 

20 READ V$:POKEX,VALCiH'+V*) 

so s=s+peekíx):next 

40 IFSO36080 ! THENBEEP: CLS: PRINT"HAY UN 
ERROR" 

50 DATAED,73,b4,Dl,CD,CC,00,3E,0C,CD..A2 
, 00, 21, E6, D0,FD,21,C2,F6,1E,00,CD, 21,00 
,FD,23,FD,23,2l,45,Dl,lE,01,CD,8B,D0,2i 
,04,01,3E,02,CD,45,D0,21,11,D1,3E,04 ; CD 
,45, DO, 21,10,01, 3E,Q8,CD, 45, DO, 21, 32,01 
,3E,03 

60 DATACD , 45 , DO , C9 .CD,3B,D0..FD,6E, 00 , FD 
,66,01,F0,4E,02,FD,46,03,B7,ED,42,09,C8 
,E5,DD,El,Ob,00,4E,OC,OC,OC,lD,lC,28,07 
,23, 23,23, 4E, 23, 46, 03, 09, DO, BE, 00,20,06 
,DD,7E,Ol,B7,C8,CD,B3,00,00,7E..02,CD,B3 
,D0,3E 

70 DATA20 ., CD , B3 , DO , DD , 7E , 00 , 1 8 , C 3 , F5 , CD 
,AC,D0,3A,B0,F3,3D,47,C5,3E,2D,C0,B3,D0 
,Cl,10,F7,CD,AC,00,7E,87,28,0b,CD,B3,D0 
,23,18,F6,F1,C9,3E,0D,CD,B3,D0,3E,0A,47 
,3A,F8,F7,B7,20,22,3A,DC ) F3,FE,18,20,17 
,3A,DD 

30 DATAF3 , 4F , 3A , BO , F3 , 3D , B3 .. 28 , 05 , 78 , FE 
Í OA,20,07,CD,9F,00,FE,03,28.09,78,C3,A2 
, 00, 78, CD, AS, 00, DO, £0,78,64,01,09, 20, 20 
,20,20,2A,2A,2A,20,56,41,52,49,41,42,4C 
, 45 , 53 , 20 .. 53 , 49 , 4D , 50 , 4 C , 45 , 53 , 20 , 2A . 2A 
,2A,00 

90 0ATA0A.,09,45,6E,74,65,72,Sl,73,0A,0A 
,00,00,0A,09,52,65,6l,6C,b5,73,0A,0A,0D 
,00,0A,09,44.6F,62,6C,S5,20,70,72,65,63 
,89,73,69,A2,6E,0A,üA,0D,00,0A,09,41,6C 
,66, 61, 6E, 75, 60, 82, 72, 69, 63, 61, 73, OA.OA 
,00,00 

1 00 DATAOA , OA , 2A , 2A , 2A . 20,56.41 , 52 ,49,4 
1,42,4C,45,53,20,44,45,20,43,4F,4E,4A,5 
5,4E,54,4F,2A,2A,2A,00,00,00 
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ENTRA EN LA AVENTURA 
CORRE A TODA PASTILLA 
CON 



] mdífm 



OTRO SENSACIONAL ¡J JUEGO DE MANHATTAN TRANSFERS, S.A. 



# # • C • v T oí f 




i KUüKni iru 















I. V. A. 



Programa de gestión realizado por Mi- 
guel Soler Campos 

Se acabáronlos quebraderos de cabeza para poder calcular el IVA en vuestras transacciones. Este programa os calcula 
el IVA de vuestras facturas (clientes y proveedores) y os realiza un balance de fin de año. 



clientes, a 



Variables: 

Principales: 

x n.° de aponte 

n tipo de factura Cl 
proveedores) 

c$ (x, n) nombre cliente o provee- 
dor 

5 ' IVA 

6 'POR H. SOLER 

7 'PARA HSX EXTRA 
10 5OSUB3920 

20 MAXFILES=2 
30 CLEAR 10000 

40 DIHF«(125.2).CI(125.2),FRA(125,2).IVA 

(125,2),SF(2),SI(2) 
50 SOT01I2! 

60 ' III Safar, oulsado tecla III 
7 K$= I NKEYS : IFK$=" "THEN 7 

80 RETÜRN 

100 'ttt Subrut . imposici on fecha" 

110 LDCATE17,5:PRINT" " : LOCATE 1,5:1 

NPüT n Fecha (Milla) ";F$(X,N) 

120 IF LEN(F$(X,N))<>6THEN11I 

130 D=VAL(f!ID$(F$(X,N),l,2)) 

140 H=VAL<HID*{F$(X,N),3,2)) 

150 IFM<1OPH>12THEN110 

160 IFH=20RM=40Rrt=60RM=90RM=l 1THEN160ELS 

E170 

170 IFD<1ORD>31THEN110ELSE210 
180 IFM=2THEN190ELSE200 
190 IFD<1ORD>2BTHEN110ELSE210 
200 IFD<1ORD>30THEN110ELSE210 
210 PETURN 
240 ' 

250 ' ttt Subrut. leyenda ttt 

260 IF N=ITHEN270ELSE280 

270 CLS:NI="Facturas cl i entes" : L0CATE12, 

0:PRINTN$:LOCATE12,1:PRINT"— — — 

*:GOTO290 

280 CLS:N$a"Factur»5 provetdons": LOCATE 
1 0, : PR I NTN* : LOCATE 1 , 1 : PR I NT • 



290 RETURN 



8ecundMrÍMM: 

nf $ leyenda tipo factura 

a $ Factura neta o incluyendo iva 

I % para cálculo iva 

sf (n) suma facturas 

si (n) suma iva 

fb importe bruto facturas 



m 



310 'ttt Subr. nenus secundarios ttt 
320 LOCATE10,5:PRIN T "!-C Mentes" 

330 LOCATE10,7:PPINT n 2-F reveedor 
e s" 

340 PETUPN 

350 LOCATE10,11:PFINT"4-B alances' 

360 LOCATE10,13:PR!NT"!~M e n u' 

370 L0CATE1 1 . 22: PRINT"Sel eccione opción" 

3B0 .RETURN 

390 ' 

400 'ttt Subr. introducción meses ttt 
410 !11=0:M2=0 

420 L0CATE1.6:PPINT"De que mes a que mes 
?■ 

430 L0CATE1.3:PRINT"En caso de querer se 
lo un «es ponga la mis «¡a cifra en los d 
os datos" 

440 L0CATE1, 11: INPUT-Priner oes :";H1 
450 L0CATEl,13:INPUT"Ultiio íes :";N2 
460 PETUPN 
500 ' 

510 'ttt Subr. presentación listados ttt 
520 CLS:GOSUB390 
530 IFN=1THEN540ELSE550 
540 CLS:LOCATEB,0:PRINT"Listado facturas 
di entes" :GOTO560 

550 CLS:LOCATE6,0:PRINT"Listado facturas 
proveedores" 

560 L0CATE1 , 2: PRINT"Fecha Cliente" 
570 L0CATE24,2:PRINT"Factura IVA" 
600 ' 

610 ' ttt Subr. listado facturas ttt 
620 ' 

630 SF(N)=0:SI(N)=0 

640 Y=4:SF(N)=FRA(N,N):SI(N)=IVA(W,N) 
650 FORH=1TOX 



mi y m8 auxiliares mes 
y, t, a auxiliares para bucles y va- 
riables linea 
Ampliaciones o mejoras: 
Ampliación n.° de facturas 
Ordenamiento por fechas , nombre o 
totales 

Impresión (No dispongo de impre- 
sora por lo que no be podido añadir las 
lineas de programa para imprimir) 

Dado que el programa lo be realisa- 
do para mi uso be hecho las fórmulas 
de cálculo del IVA repercutido par- 
tiendo del 18% que es el que debo de 
aplicar. Caso de que el % sea otro sim- 
plemente se debe variar la linea 1860 
cambiando el valor de la variable Z. 

Bn caso de que el % de IVA repercu- 
tido sea variable deben suprimirse 
las lineas 1690 a 1710 Cinc.) y copiar 
las lineas 1910 a 2000 adaptando la 
numeración de acuerdo con las lineas 
suprimidas. 

(Estas dos ultimas instrucciones 
ya están incluidas en el programa) 



660 M=VAL(HID$(F$(W,N),3,2)) 

670 IF!K¡11ORn*>H2THEN760ELSE680 

630 IFF$ (W, N) =" "THEN770ELSE690 

690 LOCATE0, Y: PRINTF$ (W,N) 

700 LOCATEB,Y:PRINTC$(H,N) 

710 L0CATE23. Y: PRINTUSING"f#######" : FRA ! 

M> 

720 LOC ATE33 f Y : PR I HTUS I N5 "#######•; I VA í W 
i« 

730 SF(N)=SF!N)+FRA(W,N):SI(N)=SI(N)*IVA 
(W,N) 

740 Y=Y+1:IFY=18THEN750ELSE760 
750 6OSUB830 
760 NEXT W 

770 LOCATE 0, 19:PRINT"Totales :":L0CATE2 
3,19:PRINTUSING'l#itltt#";SF(N):L0CATE33 
,19:PRINTUSING"tlti###';SI(N) 
780 L0CATE12.21:PRINT"Pulse una tecla" 
790 GOSUB70 
795 RETURN 



805 



820 ' ttt Subr. cambio de pagina ttt 
830 L0CATE6,21:PRINT"Pulse una tecla par 



si * «» * I 



oom~. OQl~lOC 


















a seguir* 

B4f v=4: 2=4: 6OSUP70 
850 FQFT=!T021 

860 LOCATE*, T ; PR INTSTR I N6$ (40 , " ") 
870 MEXT T 
880 RETÜRN 
900 ' 

910 ' tM Camb:s de modo de escr.t.M* 

=21? COLORI , 7, 7: SCREEN0: KIDTH40:CLS 
9:0 PETUPN 

1000 ' 

1010 ' III Kenu principal Itt 

¡O CLCSE: COLOR! , 14. 24: SCREEN2: QPEN'grP 

»"ASIliCLS 

LIS L:NEr2.i:i-/J.83,211,lJFíUNE(70,l 
0Hl80,20i,?,BF 

10*0 LINE<47 f 33!-'208.Í03U,BF:L!NE<*5. 

:?:-'2?3.i00v.bf 

1030 LINEÍ4?, 173W208, 183) , ¿,BFsLINE'45 
.!*fH2f5,l-SfV.8F 
1060 DCAW"bfnS9. :2":CQLQPÍ:PPINT#I. "M E 
N U" 

10 7 ? SFAfSítóS, 37 " i PFIHTt i . B i-Int^sd . fa 
ctjrás" 

10B2 3EÁ«"fct55,47 , !,P!»':NTI! í "2-l i s t a 
d c 5' 

10 a 2P.4il a !í.?!3.57 tt :FF!NT#:,-3-3 alan 
c e s" 

1100 D W8B55, 67" í PPINTt! , "4-Le:turj de 
dates' 

1110 DPAH"B*55,77':FPINT*l,'5-5rabacian 
Satcs" 

1120 DPiW'biSS, 87" íPRINTti . "é-Fin de tra 

bij-o* 

1130 QF.ASí"&«60, i72"!FP!NT#l, "Sfilecrione 

CBciín" 

lli=? C-QSUB70 

1130 K S VAL flW : IFtfí Í0RX>7THEM 140 

i 160 DN K 60*01500.2200.2420.1200.3410,3 

720 

1200 ' 

1210 ttt Lectura ditas til 
1220 BOSUB920 

1230 LDCATEll,i;FFINT"LECTUFA DE DATOS" 

1240 LDCAT£ii,10:PRir"Pulse PLAY en el 
■ 

1230 L0CATEll,12:PR!NT"cassBtte y RET'dPN 
* 

123! L0CATE2,2l:PRINT"Si quiere volver a 
1 lenu pulse H" 
1260 5OSUB70 

1265 IFK$='(s"ORK$= , !1"THEN1000 
1270 LOCATE! f. 



12B0 L0CATEll,!2:RRINTSTRINGt(!8," ") 

12°0 L0CATE13. 10: PPINT"Leyendo. . . " 

1300 0FEN"CAS:"F0RINPL'TASI2 

1310 INPUTH2.X 

132? F0RW=1T0X 

1330 N=! 

1340 INPUTt2,F$(K.N) 

1330 ÍNPyTl2,Ct <«.!*) 

1360 INPUTtr. IVA'W.N) 

13 7 INPUT*2,FPA'M) 
1380 N=2 

1390 !NPUTI2,F$(Í,N) 
1400 !NPUT*2.C$(W,N) 
1410 INPÜTI2,IVA(H,IU 
¡420 INPüTt2,FRA(W,N) 
1430 MEXT N 
1440 CL0SEI2 

1450 LOCATE 1 1 , !0 : PP INT'Vuel va al menú." 
1460 C CR T =!TO1000:NEXT:GOTO1020 
1500 ' 

1510 ' m Intrad. facturas Itt 
¡320 EOSUTOf 

1330 L0CATE12, IrFFINT'Int'ad. Facturas" 

1540 LQCATEÍ2,2:PRI*¡T"- ■ 

1530 50SUB3 1 : LOCATE 10 , PF. INT "T-L i s < 
a d o s' : :GOSL!E350 
1560 5QSUB70 

1570 K=VAL (Ki) : IFK 1GRK>5THEN1560 
¡580 ON K5O T O13°0. 1810.2200,2420, 1020 
15°0 'tfl Facturas clientes m 
1600 M*UH*i 
1610 IFXM25THEN3820 
1620 6QSUB240 

1630 LOCATE i , 3 : PP I NT " Ap un tt n2:":X 
1640 G n SL'P°0 

1660 LOCATE! , ?? INPUT"CI : •nti - j Ci í X p NJ 
1670 !rLEN'2$(X.NVP15THEN16B0ELSE1690 
1680 L0CATE8. 7s PPINTSTPINSf (30, " "I: BOTO 
1660 

16^0 LOCATE1.10:!NPü T ":(nDorte net:":FFA( 
X,N) 

16"5 1*12 

1700 IVA(X,N)=INT(FRA(X ? N)tI/100) 
1710 LOCATE!, 12irRINT"! V A :';IVA(X,N) 
1720 LOCATE10,22:PPINT"Otra factura (s/n 
)?' 

1730 6OSUB70 

1740 IF Kt="N"QRKÍ=VTHEN15i0ELSE1750 
1750 6OTO1590 
1760 6OTO1510 



1811 Ut Facturas proveedores M 

1820 X=X+1:N=2 



1830 IFX>125THEN3820 

1840 GOSUB240 

1850 L0CATE1 ,3í PRINT*Apuntl n2:";X 

1860 6OSUB90 

1880 L0CATE1 , 7s INPUT"Proveedor " ; C$ ( X, N) 

1890 IFLEN(C$(X,N))>15THEN1900ELSE1910 

1900 LOCATE8.7:PRINTSTRING«(30, - "):G0T0 



i 



1910 LQCATEl,9:PRINT"Factura neta o inel 
jye IVA ?' 

1920 LOCATE!, 11 :PRINT'5i es neta pulse N 

,si incluye IVA pulse I (v RETÜRN)' 

1930 LOCATE l, 13: INPUT"¿N o I":A$ 

Wtf IF A$= n N"CRAS=°n n THEN1970 

1950 1FA$=T'ORA$=VTHEN2050 

1960 IF A$OV0RAfO"N"0RAiO"!"QRA$<>" 

i"THEN!910 

1970 LOCATE!, 15: INPUT" Imparte neto";FFA( 
X.N) 

1973 1=0 

1990 LOCATE!, 17: INPüT n % IVA"; I 

1990 IVA(X,N)=INT(FRA(X.N)»I'!00) 

2000 LOCATE! , 19 : PRIÑT* l«por te IVAVjÍVAí 

X.N) 

2010 LOCATE10,22:PRINT-Otra factura 's/n 
)?■ 

2020 GOSUB70 

2030 IF K$="N"ORK$="n" T HEN1510EL5E1910 
2040 EDTQ1B10 

2030 LOCATE!, 13: INP'JT" Imperte bruta" iFB 

2060 LOCATE!. 17¡ INPUT'X jvA";J 

2070 IVA(X,N)=INT((FBtI)/' 100*1!) 

2080 FRA(X,N)=FB-IVA(X,N) 

2090 LQCATEl l 19:PRINT"I|porte IVA: IVA? 

X,N) 

2100 LOCATEl,20:PFINT"Imoorte neto fra." 
;FRAÜ,N) 

2110 LOCATE10 f 22:PRINT'Otra factura (s/n 
)?" 

2120 5OSUB70 

2130 IF K$="N"OPK$=VTHEN1510ELSE!810 
2200 ' 

2210 ' Itt Listados ttt 
2220 GOSUB920 

2230 L0CATE12, !:PPINT"L istados' 
2240 GOSUB310:LOCATE10,9:PRINT"3-B a 1 a 
n c e s':LOCATE10,il:PRINT"4-H e n u" 
2250 6OSUB70 

2260 K'VAL (Kí) : IFK< 1ORK>4THEN2290 
2270 ON K GOTO2280,2310,2420,!020 
2280 N=l 
2290 GQSUB500 
2300 GOTO2210 



i i\ uüKnihu 








2310 N=2 
2320 SOSUB5I0 
2330 EOTO2210 
2400 ' 

2410 '*** Balances**» 

2420 CLS:S0SUB91f 

2430 L0CATE12,!:PFINT"B a 1 a n : 8 s" 

2440 L0CATE12 ( 2:P?IN T "—~ 

2450 LQCATE11, 5: FFINT" I-Balance facturas 
■ 

2460 LDCATEil , 1: PRINP 2-8aÍ anee I V 2" 
24 7 L0CATEl!,9¡PRINT"3-fl e n u" 

LOCATEt0,21:PFINT"Selec:ione speien 



2400 GOSUB70 

2500 K«VAL>K«) : IFK< iQRK>3THEN24?0 
2511 ON Y, GOTC2600.2O00.1010 



2610 *** Balance facturas *** 
2620 CLS:6OSUB400 

2630 CLS:L3CATEIÍ,"l¡PF!NT*Bilanci »act.r 
as* 

2640 L0CATE!1,2:PPINT"— " 

2650 5OSUB3300 

2660 SF(P=0:SF(2>=0 

2ó 7 SF(n=FRA(W.l»:SFí2)=FF:?'k , ,2) 

2680 F0FNMT02 

2600 F0RW=1T0X 

2700 M=VALíMIDi< c «'W.N:.3.2)) 

2"M0 IFri<'M!ORM>M2THEN2 7 !0ELSE2 7 20 

2720 !FN= ITHENIFFI I N, N) »" "7HEN2760ELSE2" 

40 

2730 IFN=2THENIFF$ ' W. N) =" "THEN2770ELSE27 
40 

2740 SF(N)=SF'N)*FFA'W.N) 
2750 NEXT N 
2760 NEXT N 
2770 GOSUB3220 

2780 L0CATE4, 6: PPINT'Tl i entes Proveed 
ores Saldo" 

2790 LOCATE!, 9 J PRINTU5 I N6" f ftlllll" ; SF ( 1 

) 



2800 L0CÁTEi7,9¡PP.ÍNTUSIN6"li#WIII" ; SF 
2) 

2810 L0CATE29, 9: PPINTUSING ; SF 
1)-SF(2) . 

2820 L0CATE2,21:PRINT"Pulse una tecla pa 
ra volver al «enu" 
2830 GOSUB70 
2840 GOTO2420 
2900 J 

2910 '*** Balance IVA*** 
2"20 GOSUB910 
2930 CLS:5OS'JB400 

2040 ELSíL0CATE12.Í:PRINT"Ba¡ancB I V A 1 

2950 L0CATE12,2:PRINT" 

2060 EOSUB3300 

2970 S!(l)»í;SI(2)»0 

2080 SI(l)=IVA(W,l):SI!2)=iyA(W.2) 

2990 FQPN=1TQ2 

3000 forw=:tox 

3010 f1=VAL(«!D$fF$(W,N).3,2)) 
3020 ÍFH<HlQRr1>N2THENft60ELSE3030 
3030 IFN=1THENIFF$ 'W, =" " T HEN70"'0EL3E30 
40 

3040 IFN=2 T HENIFF$'W.N)='-" ,T HEN3030EL3E3í 
50 

3050 SI(N)sSI(N)+IVA(«.N; 
3060 NEXT W 
3070 NEXT N 
3080 SOSÜB3220 
3000 L0CATE4,6:PRINT"Feper:ut. Soporta 
do Saldo" 

3100 LQCATE4.0:FFINT¡jSING ,l li*W*";S:'l 
) 

3110 L0CATE17.9:FFINTüSlNG"#MM4*r';S!í 
2) 

3120 L0CATE29 r ?sPRINTüSlN6'#|i###ir¡SI( 

i ^ -s: f 2> 

3130 L0CATÉ2,21:PRINT"Pulse una tecla pa 
ra volver al menú" 
3140 5OSUB70 
3150 5CTO2420 
3200 ' 

3210 '«* Recuadro títulos balances **t 

3220 LOCATE!, 5¡PRINT»r 

WQW V 

'>230 L0CATE1.6:PF:INT"| 



3240 L0CATEl,7:PRMT"h 
m r 

3250 L0CATE1,B:PRINT"| 
I" 

3260 LOCATE!, 9: PRIMT"| 



3270 L0CATE1, 10:PRINT- 1 



3280 L0CATE1,11:PRINT" L 

"QW J" 

3290 RETURN 

3300 ' 

3301 '<** 

3305 FORY=5TQ15:PF.:NTSTPING$!:0.' 1 1,1 ¡NE* 
T Y 

3310 RETURN 
3400 ' 

3410 '*** Grabación datos »** 
3420 60SUB92I 
3430 CLS 

3440 LOCATEi0 f l!PRINT"8P.ABAC!ON DE uA T *^ 

3450 LOCATEB,10;PRINT"Pulse c .Av , RECCF 
D en" 

3460 LOGATE!, 12s P R !NT B el cassette v PEI 
URN. " 

3465 L0CATE2.21:FR!NT ,, Si quiere solver 5 
1 menú pulse K" 
3470 GOSUB70 

34 7 5 IFK$=VOF:K$=" ti "TREN 1000 
3480 LOCATE3,10:P C INT5TPING$'23." 
3490 i lOCATE8,12:PR!N t 5TRINGI'27/ ") 
3500 LOCATE10,10:FFIN T " Grabando... 

M 

3510 QPEN H CAS:"FQR0UTF'JTAS#2 
3520 PRINTI2, X 
3530 FQRW=1T0X 
3540 N=l 

3550 PRINTIZ.FI («,f|J 
3560 PR!NTI2,CÍ(H.N) 

3570 PRINTI2,IVA(H,S1 
3580 PR!NTt2,FRA(H,N) 
3590 N=2 

3600 PRINT#2,F$(K.N) 
3610 PRINT#2,C$(W,N) 
3620 PRJNTi2.IVA'W.N) 
3630 PRINTt2,FRAW,N) 
3640 NEXT U 
3650 CL0SEI2 

3660 LOCATEB,10¡PFINTSTP!NGí(18," "1 

36 7 LOCATE5,10:PRIN TO Vuelvo al lenu. 
■ 

3680 FOPT=ITO!000:NEXT:GOTO1020 
3600 GOTO1020 
3700 ' 

3710 'Mí Fin de trabajo *** 
3720 COLORIS, 4.4:CLS:END 
3800 ' 

3810 '*** Subr. exceso de datos I** 



I l-l 



3820 CLS:L0CATE1 . 10:PRINT"Ya no caben ra 
s datos, grábelos. ":5OTO1020 
3900 ' 

3910 'til Presentación ttt 

3°20 COLOR 1,14,14: SCREEN2 : CLS 

3930 CLOSE:OPEN"grp:"AS*l 

3"40 F0RI = 1T08:READ H$ : L*=L$+CHR$ í VAL ( "S 

B"*H$));NEXT I 

3"50 SPRITE$(0)=L$ 

3960 DATA 00011000,00111100,00111100,111 
11111.11111111.00111100,00111100.0001100 


3970 LINE(25,65)-<231, 135) , 1,BF:LINE(20, 

60>-!226,130),7,BF 

3980 FORX=100TO140 STEP10 

39°0 READ Q* 

4000 DPAW"bm"+STR$ ( X) +" , 71" : PRINT#1 ,Q$ 

4010 PL'TSFRITE0,(X,70).:,0 
4020 BEEP 

«025 F0RI=1T025:NEXT 
4030 NEXT X 

4040 PUTSPRITE0, (256,209), 1,0 
4050 LINE (30, 84) - (214, 84) , 1 
4060 FORX=30TO210 STEP10 
4070 PEAD Q» 

4080 DPAW"b(i"+STR$(X) + H ,91 ":PRINT#1 , Q$ 
4090 PUTSPRITE0.(X.90),1,0 







4100 BEEP 

4105 F0RI=1T025:NEXT 
4110 NEXT X 

4120 PUTSPRITE0, (256,209) , 1,0 
4130 LINE <30, 103) -(214, 103) , 1 
4140 FORX=100TO140 STEP10 
4150 READ Q$ 

4160 DPAW-bo"+STR$(X)+-, 1 10" : PRINT#1 , Q$ 
1170 PUTSPRITE0, (X,109),l,0 
4180 BEEP 

4185 F0RI=1T025:NEXT 
4190 NEXT X 

4200 PUTSPRITE0, (256,209), 1,0 
4210 DATA l„V fl A 

4220 DATA M, I,G,U,E,L, ,S,0,L,E,R, ,C,A,H, 
P,0,9 

4230 DATA t1,,S,,X 
4240 FOPI=1TO1000:NEXT 
1250 KEYOFF:COLOR1,14,14:SCREEN0:WIDTH40 
4260 LOCATE13,0:PRINT"Instruccione5 D 
4270 L0CATE2,2:PRINT n - Este programa le 
peralte llevar una cuenta corriente de f 
acturas clientes y facturas proveedores, 
con indicación del IVA correspondiente." 
4280 L0CATE2,7:PRINT"- En caso de que el 
IVA repercutido nosea del 12 '/'. debe var 
íarse la linea 1695variando el valor de 







I." 

4290 L0CATE2, 11:PRINT--Si el IVA repercu 
tido es variable de-be sustituir las lin 
eas 1690 a 1710 y copiar las lineas 1910 
a 2000 adaptando lanuieración de lineas 

4300 L0CATE2, 16:PRINT"- El programa faci 
lita los totales de facturas e IVA, así c 
ono los balances, detodo el año o parcia 
luiente, de los mesesdeseados." 
4310 L0CATEll,21:PRINT"Pulse una teda' 
4320 GOSUB60 

4500 CLS:L0CATE2,2:PRINT"- La fecha debe 
introducirse con seis cifras seguidas, 
por ej.: 6 de Junio de 1986 debe introdu 
cirse coso 060686' 

4510 L0CATE2,6:PRINT"- El prograna no ad 

«lite fechas ilógi- cas, por ej.:30 de Fe 
brero. " 

4520 L0CATE2,9;PRINT B - Los datos v Client 
es' c v Proveedores'no admiten más de 15 
caracteres." 

4530 L0CATE2,12:PRINT"- El número naxin 

o de facturas es de 125" 

4540 L0CATE8,21:PRINT"Pulse RETURN para 

comenzar" 

4550 GOSUB60: RETURN 



TEST DE LISTADO 

Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre pág. 29. 
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Programa de gestión realizado por 
Miguel Soler Campos 

Por fin las instrucciones del BASIC al alcance de vuestros dedos. Con sólo pulsar SHIFT y la inicial de la instrucción 

lente conseguiréis que ésta aparezca en vuestros programas. 



Muchas veces tenemos que teclear 
programas en los cuales se repiten 
una serie de instrucciones o funcio- 
nes, estas son casi siempre las mis- 
mas, las que más se útil Imán. Hay or- 
denadores, como es el caso del Spec- 
trum, en los cuales las palabras clave 
están contenidas en una tecla de tal 
forma que cuando se pulsa esta apare- 
ce sin tener que teclearla; tiene la 
desventaja de que si en un momento 
no sabemos donde está una determi- 
nada palabra clave podemos tardar 
bastante tiempo en encontrarla. La 
solución viene de mano de los or de na - 
, dores PC's, en ellos los "tokens" u ór- 
denes se pueden teclear y también se 
pueden conseguir directamente pul- 
sando la tecla "ALT" con una tecla al- 
fabética. 

Con este programa he intentado 
imitar la técnica de los PC's, como los 
MSX no disponen de la tecla "ALT", be 
usado la tecla "SHIFT" para sustituir- 
la, de tal forma que pulsando dicha te- 
cla con cualquier tecla alfabética se 
obtendrá un "token". La desventaja 
de este programa es que cuando este- 
mos escribiendo en minúsculas y 
querremos escribir una may úscula 
no podremos utilizar la teda "SHIFT" 
si no que tendremos que usar el fija- 
dor de mayúsculas. 

Los "tokens" que generan cada te- 
cla son los siguientes: 



O 
J 
M 

P 
S 
V 
Y 
B 



H - HEXS( 

K - KTT.T. " 



GOTO 
KEY 

MIDS( 
PREST 
8 CREEN 
VAL 

K 



>f -f a 



Q - PUTSPB2TE 
T - THBN 

CHRS 

ron 

IjPTPUT 
LOCATE 
OPBN 
BBAD 
UBR 
XOR 



Í1S 



z 

¥ - FOR 
I 
L 
O 
R 
U 
X 

TODAS COMBINADAS COBJ "SHIFT" 

He elegido las palabras que he creí- 
do de una utilización más normal, la 
mayoría se corresponden en la pri- 
mera letra con la tecla en la que es- 
tán, de forma que se haga un poco más 
lógico encontrarla en un momento 
dado. 

Bl programa lo que hace es poner un 
parche e n el g ancho situado en la di- 
rección &HFDCC, a este gancho se lla- 
ma cada ves que se pulsa una tecla, de 
ahí se desvia a la dirección donde está 



la rutina en asembler, esta lo que 
hace es ins peccio nar si se ha pulsado 
la tecla "SHIFT", en caso afirmativo 
averigua si se pulsó alfana de las te- 
clas alfabéticas, de ser así imprime 
en pantalla el "token" correspon- 
diente a dicha tecla, incrementa el SP 
para Ignorar la ultima tecla pulsada y 
vuelve, si no se corresponde con nin- 
guna de las teclas alfabéticas o no se 
pulsó la tecla "SHIFT" se devuelve el 
control al BASIC sin haber modifica- 
do ningún registro. 

Bl comienzo de la rutina está situa- 
do en la dirección 84984, se podría 
haber aprovechado más la memoria 
en el caso de los ordenadores sin uni- 
dad de disco. 

Bl programa tiene una comproba- 
ción de los datos por línea, de tal for- 
ma que si hay un error nos diga en qué 
línea y no tengamos que perder el 
tiempo mirándolas todas. Una vez que 
el programa nos haya devuelto el Ok 
tendremos que teclear DE FUS 
R 84984; A XJ8R CO) y la rutina se 
habrá activado, a partir de ahora cada 
ves que pulsemos la tecla "SHIFT" 
combinada con una alfabética obten- 
dremos el correspondiente "token". 

Bn los ordenadores con unidad de 
disco si queremos salir del BASIC al 
MSX DOS antes de hacerlo deberemos 
e fectu ar un POKB en la dirección 
6*HFDCC con el dato 801 , si no lo hace- 
mos al salir al MSX DOS el sistema no 
funcionará correctamente. 
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2 ttttmmummm 

20 ' I * 

30 ' t T3KENS * 
« ' I t 
5? ' t FEO. CHAF'Z DJEDA * 

* « 
i PAPA HSX-EXTPA t 
t < 

* Jaén i Ensr: :°2^ * 
Iff t t 
lig tmmtmmtmítt 

120 DLS:KEY OFF: TI =54^54 ! sFDF 1=1 TG 80 
13? REAS CAf : FOF 3=1 TQ L£N'CA$- 5TEP 2 
Hf » í A=VftL{*Sr«"*RI2$(Cft*,J,2)hPCKE DI,V 
A:p:=8!+i¡CH=CH*^sL3WTE !7,í2iFF.IMT DI 

.vi ^£7 . u 

ihi *-!-:• cboss then ppint "efpc? 

EN LA LINEA "!: : M*10:END 
170 DH=í 
;E0 mext i 

i c ? esi) "r::E¿ : las datas con cjidadc 

2ft IA T A c ;EDB?2CDF;03ES6:2",lil2 

210 data : ':E":":3:::c r DC c-: .:^2 

... 7rr 5 n3c**£g¿rj)4. : « il 222 

Mi data •'?iE=0::: r =r:E?:".^4 

m DATA "22í:?IEi"P:A?325", c S6 
250 DATA '3E0ICB4;3iEó80CA",89? 

:a 7 ¿ "í?=D::e?3:d¿:?:eí". 70 i 
278 data "mmmmzmv f 7^ 

2U DATA "?:E6?2Ctl!DS3E0:".-37 
: : : DATA tf i:D4'8ífií4CÁlBD8%950 
m DATA "3E03CD4:0:E608CA\ 7 76 

3:0 d* t a '2i!)B3E03S24r&í£&\3i5 

32? DATA "10CA2 7 D53E03:D4:".808 

330 DATA •fiE42fCA3Bü93SRf",.79I 

341 BATÍ "CDí!0!E¿£0:h33:3".:034 

3!: DATA ■l£m41fflEí80CA\8f6 

3éf DATA '!?D8JE04CD4101Eé",84l 

3"? DATA n 01CA3FD53E04CD41\813 

39? DATA "01E602CA45D93E04V96 




3"0 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
"0 DATA 
450 DATA 
460 DATA 
470 CATA 
480 DATA 
4^0 DATA 
500 DATA 
510 DATA 
52? DATA 
530 DATA 
5*0 DATA 
550 DATA 
560 DATA. 
570 DATA 
580 DATA 
590 DA T A 



n :D410:E604CA¿BD8" ( 9'3 

n 3E04CD4101E609CAV77 

'31D83E$4GB4i«iE6%864 

'':?:;5 7 D83E04CD41\857 

B 01E620CA5DC33E0¿\8a0 

"CDíl0iEt40CA63D8\:0B2 

"3E04fl}410íEé80CA 9 } 897 

"Í O D53E05CD4101E6",889 

'§ÍCA6FÜ83E05CD4! B ,867 

"0:E:02C£ 7 5D93E05",B35 

"5D4101E604CA7BDB".104¿ 

"3E05CDfll01E608CA n .778 

"91D83E05CD4101E6\ 1} 13 

n 10CA6 7 D83E05CDil","06 

"01E620CASDD83E05".BB t > 

"CD¿101E640CAO3D9".1130 

n 3E05CD4101E680CA n ,e93 

" "D8C3FPD77EFE23 n ,1443 

"CAF7D7BF23i8F633" f i243 

"333E0132A?FCE1D1\1019 

"C1F1C9219FD9C3EDM475 



1 fifi 

600 


DATA 


"D721A4D8C3EDD721", 


1308 


1 i fl 

610 


RATA 

DATA 


"A9D3C3EDD721AFDB", 


1456 


620 


n f t a 

DATA 


"C3EDD721B5D8C3ED", 


1509 


630 


n AT A 

DATA 


"D721BBD8C3EDD721", 


1331 


/JA 

640 


RATA 

DATA 


"C0D8C3EDD721C6O8", 


1502 


650 


RATA 

DATA 


"C3EDD721CCD8C3ED", 


1532 


i i ti 

660 


t\ A T A 

DATA 


"D721D3DBC3EDD721", 


1355 


670 


n A T A 

DATA 


"D8D8C3EDD721DEDB", 


1550 


680 


DATA 


"C3EDD721E6D8C3ED", 


1558 


690 


DATA 


"D"21ECD3C3EDD721% 


1380 


7 00 


DATA 


n F2D8C3EDD 7 21F8D3\1602 


710 


DATA 


"C-3EDD721FFD8C3ED", 


1583 


720 


DATA 


"D7210BD9C3EDD721", 


1156 


730 


DATA 


"11D9C3EDD72119D9M156 


7 40 


DATA 


"C3EDD7211FD9C3ED", 


1360 


750 


f\ A T A 

DATA 


u D72123D9C3EDD72r,1190 


760 


DATA 


"23D9C3EDD7212FD<> H , 


1201 


770 


DATA 


"C3EDD72134D9C3ED". 


1381 


780 


f\ A T A 

DATA 


"D7213AD<?C3EDD 7 41\ 


1235 


790 


T\ A T A 

DATA 


"5343232342454550". 


509 


nfi/i 

300 


T\ A T A 

DATA 


"2343485224282344". 435 


810 


f\ A T A 

DATA 


"4154412023454C53 ,, .509 


320 


T\ A T A 

DATA, 


"452023464F522023", 


434 


8:0 


T\ A T A 

DAiA 


"474F544F20234845". 


521 


340 


n AT A 

DATA 


"582428234^5055", 


515 


850 


DATA 


"542023*845592023", 


451 


860 


DATA 


"4B494C4C22234C4F", 


524 


870 


DATA 


"4341544520234Da°", 


502 


880 


DATA 


"442428234E455354",498 


890 


DATA 


"20234F50454E2223".442 


°00 


DATA 


"50524"4E54202350", 


544 


910 


DATA 


"5554205350524954", 


603 


c 20 


DATA 


"4520235245414420". «52 


930 


DATA 


"2353435245454E20", 


515 


940 


DATA 


"235M8454E202355", 




950 


DATA 


"53522356414C2B23",502 


960 


DATA 


"5749445448202358". 


539 


970 


DATA 


"4F5220234C494E45", 


524 


"80 


DATA 


"2823434952434C45". 


509 


990 


DATA "2823", 75 











































Test de listad . 


10 - 58 


100 - 5B 


1"0 -187 


280 


- 20 


370 


_ ce 

w'J 


460 


- 45 


550 


- 46 


640 -125 


730 


-100 


820 


-209 


910 


-204 


20 - 58 


110 - 58 


200 -122 


2*0 


- 49 


380 


- 28 


470 


- 63 


560 


-138 


650 -157 


740 


-142 


830 


-240 


920 


-190 


30 - 58 


120 - IB 


210 -176 


300 


- 39 


3°0 


- 64 


4B0 


- 27 


570 


-116 


660 -112 


750 


- 91 


840 


-230 


930 


-215 


40 - 58 


130 -136 


220 -107 


310 


- 20 


400 


- 41 


490 


-100 


580 


- 81 


670 -153 


760 


-113 


850 


-210 


940 


-222 


50 - 58 


140 - 31 


230 - 28 


320 


- 37 


410 


- 28 


500 


- 43 


5°0 


-137 


680 -154 


770 


-129 


860 


- 26 


950 


-213 


60 - 58 


150 -205 


240 - 42 


330 


- 36 


420 


- 45 


510 


- 27 


600 


-10B 


690 -127 


780 


-109 


870 


-213 


960 


-223 


7 - 58 


160 -14B 


250 - 40 


340 


- 78 


430 


- 35 


520 


- 44 


610 


-154 


700 -136 


790 


-205 


880 


-238 


970 


-253 TOTAL: 


80 - 58 


170 -139 


260 - 29 


350 


- 42 


440 


- 84 


530 


- 52 


620 


-146 


710 -169 


800 


-204 


890 


-223 


9B0 


-227 


"0 - 58 


180 -204 


270 - 56 


360 


- 2B 


450 


- 44 


540 


- 81 

: 


630 


-119 


720 -107 


810 


-212 


900 


-216 


990 


- 47 
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0. V. N. I. 



Programa de juego realizado por M. a Teresa 
Quillén 



Debes evitar que las naves enemigas colisionen con tu nave. Cuentas para ello con tres naves de reserva; pero los 
enemigos son muchos. Los efectos gráficos están muy bien realizados. 



5 *mm D.V.N.!. ttm 

6 ttt cor M. T. GUILLEN * 

7 m para HSX-EXTRA * 

e mmmmmmttt 

10 DEFINTA-Z : CLEAP4, 57333 ' 

20 COLORA ,1.4¡SCREEN 2,2 

30 LINÉÍf , 128)-Í255, 128) 

40 0PEN R 5RP:"AStl 

50 'fililí PANTALLA 1 ««i##«**t««#« 

60 LINEI0.128M255.12S) 

70 FOF X=0 TO 255 STEP2 

B0 PSETÍX,64):NEXT 

90 FOF X=0 TO 255 STEP 2 

100 FSET(X.6B):NEXT 

110 FOP X=0 TO 255 STEF 2 

120 p SET(X,B3- :NEXT 

130 FOP X=« TO 255 STEF 2 

140 PSET(X,122):NEXT 

150 L!NEÍ140,64)-Í220,127) 

160 LINEíll4,64M30,127) 

170 LINE(166.64)-'255. 5 0! 

180 LINE(88,64)-(0,90) 

190 C E»1 «TRANSFERIR VRAHl A RAKllt 

200 FOR X»SB227! TC 59239! 

210 READVf: POKEX, VAL ( **H* *VÍ) 

220 NEXT 

230 DATA i , 0, 8, 1 1, 90, E3. 21 , 0. B, Cfl. 59, 
.09 

240 DE C, JSF0=58227! 
250 A=USR(0) 
260 CLS 

270 REMítítltPAHTALLA ZlIttUI? 

280 FOR. X=0 TO 255 S^EP 2 

290 PSETíX,65):NEXT 

300 FOR X=0 TO 255 STEP 2 

310 PSETíX,74):NEXT 

320 POR X=0 TO 255 STE P 2 

330 PSET'X, 97):NEXT 

340 LINE(139,65)-(220,127) 

350 UNE (115, 65) -<30, 127) 

360 LINE(165,65)-(255,90) 

370 LINE(8B,65)-!0,90) 

380 REHlltttVRAH2 A RAHZMWtt 




390 FOP X=5322-' TQ 5327" " 
400 READ \>UWU.WJ n w u + l J*) 
410 NEXT 

420 DATA í r 0,B f li,80,EB,2Í,0. 3.22.!*. 

0. .W 

430 DEF'JS°0=58227' 
440 A=L'SR0(0) 

450 FEM ttt SUCESION DE IMAGENES M3PIZ 
ONTAlESIttltlItlttttttltittlIlIttt 

460 FOF X=582M ; 7 D 53225' 
470 KEADVt: POKEX .VAL í •fcH"*V$) 
480 NEXT 

490 DATA i,0,8 s ll,0,8,21,80,E3,CD,5C,0 
.09 

500 DEFUSR=53214> 
510 FOR X=5822 7 ' TO 58239' 
520 FEADVf: F OKE Y . VAL ( f iH"+Vt) 
530 NEXT 

540 DATA 1.0.8,11, 0,8.21. 30. EB.CD. 50.0 
.09 

550 DEFÜSP 1=58227' 

560 'lltlltl SCROLL «MiMtMMMM 

570 Fnpy=5B132' 592:3' 

580 READVfí e GKEX MU" fcH" ♦ VI ) 

5°0 NEX T 

600 DATA 21,0, i8,CO,4C,E:,21,Fi.OF,D0. 
21 J F6,DF ? 6 ? lBÍC5,6,lP, : 'E, r 5,23^E.DD,7 
7,0,DD,23,t0,FT.Fl,DÜ,77 í 0,23,D!),23,Cl 
,10,E8.CD,59.E3,C C .21.1F,18,CD.¿C,E3,2 

1, F5.E2,DD.21.F5.E2.6,1B 

610 DATA C5,6,1F,7E,F5,2B,7E,DD,77,0,D 

D,2V0,F7.2B,F1,DB,77,0,DD,2B,G1,20,£ 
8. CD, 59, E3.C9.1, 0,1.2:. 0.18, 11. F6,DF,C 
D.5°,0.C9. 1,0,1,11, 0. 18,21, F6, DF.CD, 50 
,0.09 

620 DEFüSP2=5B102" 

630 DEFÍ)SR3*58143! 

640 ' mtt FQPUA SPPITES ttttt 

650 F0RX=14336 TC 15007 

660 REAOV: VPOKEX , V: NEXT 

670 DATA 0,0,0,1,2,4,12.24,63,120,144 

,128,96,0,0,0.0,1,3.7,15,31,30.60,252, 

30,15,0,0,0,0,0 




DA r A 0.123. 152, 224. 240, 2*6,1:0.60 
,63,120,240,0. 0.0. 0.0.Í?,?.?. 125. 32, 
«,24,252,30.9,1, 6,0.0,3 
690' DATA 0.0.7.30. 117. 79.éB,I2,f,e.0, 
0,0,0,0,0, 16.224, l!l,l!.:55.á!,2S. 12.! 
, 4,7.3,f.0,M,| 

700 DATA 0.192,224, 2-24. 24*. 24=.:::. 5: 

.60.ér,2!5.22! ! 0.0,0,0,?.0,0.? l 0,e,:28 

,l?2.64,9á.43,:4l,124.!4.2.4 

7 í0 DATA 0.0.0, 0.0.?.:, 3.2.6. 12, 31. 62 

f 66.6*.32,0.3,-.Vf.:5°.30.23.:0.:?.: 

55.135,0.0.0.0 

720 DA T A 3. 7 . 1 G 3.2 ¿I ",25!.25Z.! ; . " 

2.224, V!2,§,á 0,M,M, 224, !2^25«!li 

4,34,4,0.0,0,0.0,0.0,1 

7 30 DATA ?,0, 7 S , .i c .2 o ,£5.51.:3.c:. :3 5, 

207,7,0,0,0,0,4,24,248,112,128,243,250 

,248,248,240,224,200,8,0,0,0 

740 DATA 0. 16, 1,6!, 136. I 7 , 143, 34. 25.1 

B,6 C ,33. 0,123. 64, 0.0,2,1. 170,22.85. :70 

,239,90,164,66,*, 128,0.0,0 

7 50 DATA 0,32. 72,°6. 21M09. 186.85, 40 

,69,8,8,4,0,0,0,0,4,0,4,2,37,65,52,169 
,B0, 140.4, 17.2,0.0 

760 DATA 0.0,0,16,32.193,255,255,127, 
63,63,79,135,7,9,16,0,0,28,60,124.248, 
240,224,224,192.192,192,200,208.224,22 
4 

770 DATA 255,255,255,255,254,252,248, 
240, 240, 240, 248, 248, 252, 254, 255, 255, 25 



swi oonr oqi~!OC 



4,243, 192,0, 0,0, 0,0,0,0,0, 0J,0, 192,25 

3 

780 DA T A 0,0. 0,0,:,:, 15. 63, 15, 3. 1.0,0 
,3,0^,3,7,31,127,255,255,255,555,255, 



«ce -ce 



'.i 1 7 i c i 7 



7«f BATA 2. 4.=. 27.1=, 19,25,12, 4,4, 6, 2 
, 0. 224. 240. 248,252. 252. 252. 152. 2 
¿E.-í?. 2^.242, 224, 1^2, 0.0.0 
80? DA'A 1. i, 12. 25. 51. 9 C , 133. 103. ¿3,1 
5. ::.". í. 125. 224. 24?. 24E, 252. 254 
,254. 254. 252. 24?. 243,224. 0,0,0,0 

?:? mt-a :=:.: e :,?, ?,e,M, ?.?,?, 0,0, 

0.?.M.^.?.?-?.M. ?.?.?,?.?. 0,0.0. 



■re -ce ice -cr -ce "ce -c¿ 



S2: 3 

252. 24E. 2-5. 2¿5. 24E.2¿:.2¿£. 2¿^.224. 12 

°. :2 : . :2 : . :2 C , :22.i?, ü. v. :2. i ¿ . 15.3:,3: 

,:7.i7. :i 7 

87? 24 T : 2:5.255.255.255. :2.:4. 0,0,?, 
J.: : 2.24?.245.24E.245. 24=.: !: 2.:2 C .:31, 

540 DATA 224,:=2.: ; 2.: :> 2,224.24?,240, 

*£? " C l " Sr "» BS "TC -CC -CI -C- . 

L TB a te a ¿ a i. . 1 a ¿ w U , - - - , - . w , - w w a - J t a . _ i. . i _ 

'.2::.255.:7.:7.7:.:5.:,!?.?,?.:2P.:2 ( ', 

1.:.: 

85í 24?.2 i '3.24o.22 i . : 3 2. :29. :29. 

- . r . e -. ¿- -re rec -cr -re ¿7 ¿7 ¿7 
• 1 - -■ - • i..-ut.i..u..i!.iCv 

« t~ -er -,cc -ce "ce -ce -ce -rr 
. _ , ■ . , , . . 



•re -rr -rr 



g¿>« r .ü'L ~ e ~ , nc ^ t " c " ( 2 C ¿, "' c ¿ 1 " c »l ncc 
-rr -rr -ce -ce ncc -,cc -cr -rr ncc \ 

:.:.:. 7. M2S.1I5. 240. 255. 255. 355. 252. 



"ATS 2::. 25!. 235. 255. 67. 4'. 7. 7. 7. 

* a a a n rc -ce -ce -cr -rr ncc 



m 'HHDIBUJS AFECTADO SCP3lL##IW 

gas PQQVsflTnA? 

900 r 7 : -=:23 T 3 505 STEF 5? 

=1? X=RtRM}( T !*E) 

923 PSET í X.Y)!KEXTiSEX" r 

c 3? :iRaEflW,23?," :Pfi:tíT{i00*20) 
9¿? C IFCLE ■' :° 5 .5!?' ,2*PA!NT{1?9 50) 
-57 ::=:CLE-':e ,35),<!PAIKT(20,35] 
"50 C:-2LE'24t?.:2].3:PAIN T í240,:0} 
970 LINE (0.128*- (255. Í2B) 
983 PSET(0,53) 

9"0 BFA1TE3F16E12F20R4E30&5F2:F8E17F40 
R15E44F14' 

1000 LINE (0, 64) - (255, 64) iPAINT f0, 62) ! P 

4:r!12B.¿l^PAIN T (255,61) 

1010 'III* PANTALLA INFORMACION III* 



•020 PSET(20.137) 

1030 S»A«"lÍfi63L5I)aL31J20RBF3U3|3D!4F2Rl 

E2i;:4«32rE3L5H3^ 7 BR22ü2?L7UEH5D13L3U 

20R3F5Ü5R12Í3L3D17L3UÍ7L3Ü3BR19BD3O14G 

--4H:u:4E3P4F:e:Fí24L5E1D2píF;3F3D6E3L5 

H2U4F2W4E1 U2H 1 LmUl" 

1040 PSETM90.134) 

105? DFAWO20L3'J3H5D13L3L , 20F3 C 5L'5F3D3E 
5F.4F3Bl 7 L?U5L4B5L3ü20BRi0R3D14F2E2U14R 
3Dlb54L:H¿ , j:iBF1.3»D3:625-4D3L4DáF6D3' t . 
2 ü2?P- c E37E7-;7423E:D2 r : c 7 c 72:G7L5H2ü4 
F2F4I1ÍJ2H1I.3H3Ü5" 

1160 LIME ílÍ0,13í}-(146 ! tB8) ! 4,B 
1070 F' , JTSPRITE12 '235, 132) , 1! , " 
[iii PL'TBPRITEll, (235, 1521,15,9 
1030 Pl!T5FP!TEí *, (235, 1721 , 15, 9 
1100 LINEC°,l£5>-(É0,:eiM5.B 
1110 L!NE(i4,i60)-<é5.i86M5.S 
:::<7 _I i :E'22.::5 , -'5-\: 7 E\:5. EGRESE 
T(i7 170) ¡FRÍÁTÍI P 

'iiiint#i*ii etapa : wiiitl 

1140 :=6:G=; 

1151 0NI'NTERVAL=300 5QSUB 1390 

1160 IMRVSL 3N 

M'í PL'?S?RITE0, (112.80) 

1130 r'JTSPR!TEl f (128,30M 

M e SDl!KD5,15:Sá>NB 7 ,50:SQ'JND9,ifc}SOÜ 

NB10. Í6:S0UND 1 1 . 50: S0UND12, 0: S0UNÜ13. 1 

3 

1200 UN 3==ITE S3SUE 2070 

121? Y= ?:W=25:T=9 7 :>= 45 

1223 PÜTSPR!TS8,!X.Y5,15.6 

1230 PüTS?RITE9,'(X+64 .W',15,6 

1240 PUT3PP!TE10,íX*i50,T)il5,6 

:25f ^ T E cc rEi:.!X*!92,Ri,15.6 

1260 SPFITE 3N 

1270 A=USR(0) 

1280 K=S T I2K(0) 

1295 FOF 30=1 T0 40:NEXT 

1290 IFK=3 T HENA=iJS='2'0):X=X-20:VFOKE59 

:4,2:VFGKEc°18.12:5CTO1320 

1300 IFK S 7THENA=USR3 (0) : X»X*B: VP0KE691 

4.:;:VFOKE6 O :S,20:5OTC1320 

1310 yP5JK£¿?14, 0: VPQKE6°13, 4 
1320 : c VV 10B THEN v = 0: X=V-1 
1370 !F HM06 THEN W=0 :X=X-2 
134? IF T>108 THEN T = 0:X=X-3 
1350 IF F./108 THEN F= 0:X=X-4 
1360 Y=Y*l!W»«+I:T=M:R«R+I 
1370 X=X- 7 

1380 A=ÜSR1(0):FOP QQ=1 T0 40:NEXT:GOT 
C 1220 

1390 LINE(22,168)-(57,178),15,BF:PPESE 



1400 
1410 
1420 
1430 
1440 
1450 
1460 
14^0 



1490 

1500 

1510 

1520 

ND10, 



1530 

1540 

1550 

1560 

1570 

1580 

1(17, 

15°0 

1600 

161? 

1620 

1630 

1640 

165? 

1660 

1670 

1680 

1£°0 

1700 

1710 

ND10, 



1720 

1730 

174? 

1 7 5? 

1760 

! 770 

TÜ7, 

1780 

1800 

1810 

1820 

1830 

18B0 

1890 

1900 



170):P=P+20 ¡PRINTtl.P 
I=I+isIFK12 THEN RETÜPN 
'#lttlÍÍt00l0#TRANSÍCION 1 lili 
50SUB 2290 

'titli ETAPA 2 lltilltltllll 

INTERVAL DFFsSPRITE QFF;5=2 
DN INTERVAL=300 BOSUB 1580 
PLÍTSPRITE15, í 112, 170) ,7, 10 
PUTSPRITE16,(128.170), 7 .11 
PüT3PR!TE17,(112,i54),7,10 
PUTSPRITE18, (128, 154), 7,11 
FUTSPPITEl?, (112, 138) ,7, 10 
PÜTSPRITE20, (129, 1385 ,7, 11 
5CJND5, 15: 50UND7 , 50 : S0UND9 , 1 6 : SOU 
16¡SQUND11.50:SOUNDÍ2,0:SQUND13,1 

X=0: 2=131 

Y=0:W=25:T="4:R=186 

0N SPRITE 505ÜB 2070 
ECSUB1890 

A=ÜSR 1(0!: GOTO 1560 

LINE(22, 168) -(57,, 178) , 15,BF:PRESE 

170):P=P+20 sPRINTtl.P 

IF R)=136THEN 1560 

'tmmmt transición 2 m 

EjOEL'E 2290 

'fIfIftHill* ETAPA 3 t«t»t#it* 

VPDKE 6974,76 

VPOKE 6978,80 

VPQKE 6082.68 

VPOKE 6986.72 

VPOKE 6*90,60 

VPOKE ¿9<?4.¿.4 

INTERVAL 0F r :SPRITE 0FF:E=3 
ON INTERVAL =300 SOSÜB 1770 
S0UND5 , 1 5 : S0UND7 , 50 : SOUND ,! 6 : SOU 
16: S0UND11 ,50: USIN812, 0:SOÜND13, 1 

X=0:Z=131 

Y=0:W=25:T=94:R=186 
ON 3FFITE BOSCB 2070 
50SÜB 1890 
A=USP1(0):GOTO 1750 

LINE(22,168)-(57,178),15,BF:PRESL 
170):P=P*20 :PPINT41,P 
IF RM36THEN 1750 
'lili FINAL IHIIIIIIIIHIIII 
BEEP: SCREEN 0:KEY OFF: LOCATE 5,0 
PRINT" PUNTUACION: " 
LOCATE22,0:PR1NT P : END 
'IttHlflUTINA REPETICION lililí 
PUTSPRITE8, (X,Y),15,12 
PUTSPRITE9, ÍX+70, W) , 15, 12 



• m 



i 4 



sw| OPnfZDOPÍQC 








191ÍI PUTSPRITE!0,(X*145,Y), 15,12 
1920 PÜTSPRITElijtljR), 6,14 
1930 SPRITE ON: INTERVAL ON 
1940 A=USR(0) 
1950 K=STICK(0) 

1960 IFK=3 THEN A=USR2(0) : X=X-B: Z=Z-«-. 2 

5¡ VP0KE6914, 8: VPQKE6918, 12¡ 6OTQ2000 

1970 IFK=7 THENA=USR3(0):X=X*8:Z=Z-.25 

:VPOKE6914,16¡VPOKE69iB,20:GGTO2000 

1990 VPOKE6914.0:VPOKE6918,4 

1990 VPOKE6946.52:VPOKE6950.52:VPOKE69 

54,52 

2000 IF Y > 1 1 1THEN Y=0 
2010 IF W>U1THEN W=0 
2020 IF TMUTKEN T=0 
2Í30 X=X*4 

2040 Y=Y*B:W=W+B:T=T+S:R=R-. I 
205f RETURN 
2060 '«tttti COLISION 
2070 SPRITE OFF 

20S0 VPGKE 6914, 124! VPQKE6918, 124 
2090 SOL'MD 7,0¡SDUND 6,30:SOL'ND9,16:SO 
UND10.16:SOUND12,56:SOUND13,0 
2100 PL' T SPRITE 6. (120,901,15,7 
2110 PUTSPRJTE 7, (120,30). 15,B 







, 



2120 FOR R=0 TC 100:NEXT 

2130 P'JTSPRITE 6, (116, 80), 15. 7 

2140 PL ,T SPRITE 7, (124, 80), 15,8 

21507OR R=0 TO 100:NEXT 

2160 PüTSPRITE 6, (112,80), 15, 7 

2170 PÜTSPRITE 7,(128,801,15,8 

2180 FCR R=0 TO Í00JNEXT 

2190 FUTSPPITE 6, (128, 80), 15, 7 

2200 PÜTSPRITE 7 , (112, 30). 15,8 

2210 FOP P=0 '0 300:NEXT 

2220 VPQKE 6936, 191: VPOKE 6°40.191 

2230 S=S*1:IFS=4THEN2270 

224f VP0KE6959+(4tS),6 

2250 PUTSPRITE1, '128.80'! 

22:i ?=0:CN 6 60TC 1170,1520,1710 

2270 GOTO 1800 

2290 ttl TRANSICION ETAPAS Mtttl 
2300 PAINT (0,623 , 1¡FAINT(128,61! , 1:PAI 
KT(25E,¿H,1 

2310 c SET(0,60):DFAy , P5 , J20P3CI5F7D4P6 , j 
15R3ül7R6D20R10U4P4ü5R3tí6R2D6R4D7ft2DBR 
15U7R4U14RÍ6U20R4D15R4B20R25U8R7U8R6U7 
L4H2L4E2R12F2C4E2L4D20F40L , 4F5U 7C 3^ 1: ±D 
8F4D?P10D5R4E4R6U14F7 , J3R5DI0F5D3' : '5'¿12F 
3Ü7P4DBR14D6R4D7R4D8R7U14R4" 




2320 BEEP:FLAY"V:5T120L4S3 M 950C42EO5E: 

C4DEF252:04D:CC32APC" 

2330 FCF F=l '0 3C 

2340 ft=USRíe>:CCLDF 4,1,4 

2350 A^FC^íCCLC* 1.4.: 

23Í»? A=L'S" 1 '?) : NEXT 

2370 COLOR £.1.¡ 

2390 RETURN 







TEST DE LISTADO. 



r 

3 


- 58 


190 


- 


410 


-131 


630 


-140 


850 




1070 


- 91 


1285 


-242 


1500 


-230 


1720 


-109 


1990 


- ¿2 


2210 -17° 


6 


- 58 


200 


- 91 


420 


-234 


640 


- 58 


B60 


-185 


1080 


-112 


1290 
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-248 


¡ ""¿i 
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1300 
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1520 
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2010 


-127 
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-128 
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-116 
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- 58 


1100 


- 56 


1310 


-186 


1530 


-109 


1750 
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-121 


2240 - 12 
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450 


- 
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-167 
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1110 


- 56 
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- °3 


1540 
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1760 


- 46 


2030 


-165 
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30 
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°00 


- 86 


1120 
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1770 
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2260 -184 
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-209 
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-112 


1800 


- 58 


2060 


- 58 
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50 

60 


- 58 
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- 


490 


-229 


710 


-148 


930 


- 27 


1150 


-137 


1360 


-254 


1580 


- 42 


1910 


- 38 


2070 


-173 


2300 -117 


-216 


280 


-176 


500 


-126 


720 


- 21 


940 


- 28 


1160 


- 67 


1370 


-168 


15°0 


- 37 


1820 


- 21 


2080 


-170 


2310 -173 


70 


-176 


290 


-164 


510 


- 91 


730 


-118 


950 


-154 


1170 


- 13 


1380 


- 70 


1600 


- 58 


1330 


- 16 


2090 


- 47 


2320 -229 


80 
90 


-163 


300 


-176 


520 


- 88 


740 


- 24 


960 


- 31 


1130 


-122 


1390 


- 42 


1610 


-149 


1880 


- 58 


2100 


-174 


2330 - 13 


-176 


310 


-173 


530 


-131 


750 


-140 


970 


-216 


1190 


-166 


1400 




1620 


- 53 


1890 


-126 


2110 


-176 


2340 -250 


100 


-167 


320 


-176 


540 


-244 


760 


-176 


980 


-148 


1200 


- 21 


1410 


- 58 


1630 


-194 


1900 


-195 


2120 


-221 


2350 - 10 


110 


-176 


330 


-196 


550 


-193 


770 


-159 


990 


-204 


1210 


-165 


1420 


-149 


1640 


-202 


1910 


- 15 


2130 


-170 


2360 - 62 


120 


-182 


340 


-254 


560 


- 58 


780 


- 8 


1000 


- 77 


1220 


-122 


¡430 


- 59 


1650 


-194 


1920 


-117 


2140 


-180 


2370 - 81 


130 
140 


-176 


350 


- 40 


570 


-119 


790 


- 98 


1010 


- 58 


1230 


-185 


1440 


- 3 


1660 


-202 


1930 


-217 


2150 


-221 


2380 -142 


-221 


360 


- 22 


580 


- 88 


800 


- 35 


1020 


-250 


1240 


- 11 


1450 


- 72 


1670 


-194 


1940 


-111 


2160 


-166 
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-254 


370 


-204 


590 


-131 


810 


-176 


1030 


-107 


1250 


- 52 


1460 


n 
í 


1680 


-202 
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- 61 


2170 


-184 
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- 38 
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- 
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1040 


-161 
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- 92 


1470 


- 20 


1690 


- 9 
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2180 


-221 
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- 22 
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- 91 


610 - 44 
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-244 


1050 


-147 


1270 


-111 


1480 


-244 


1700 


- 6 


1970 


-110 


2190 


-182 


180 


-203 


400 


- 88 


620 - 64 


840 


-124 


1060 


-196 


1280 


- 61 


1490 


- 6 


1710 


-198 


1980 


-186 


2200 


-168 


2802# 
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TREBOL 



Programa de juego realizado por 
Santiago Turrión 

Debes reorganizar el trébol rotando los círculos que lo componen. Un reto para los amantes de los rompecabezas. 



. 



¡0 rem MtmHfmfmmt 

20 REM * TREBOL * 
30 PE*! f DE * 

40 REM * SANTIAGO TURRION # 
50 REM * PARA * 
60 PEI-! * MSX HW * 
70 REM littfftfftflifffttfft* 
80 REM 

9S REM PRESENTACION E INSTRUCCIONES 
100 REM 

110 DEFINT C-Z: FOR 1=1 TO 10:K£Y I,"": 
MEXT: COLOR 4, !,h SCREEN 2..0:CLS:R=66: 
B=60IATN(1)/45:32=2»B:B3=3»B:B4=4*B:B5 
=5tS:A*255/l?l:F0R 1=1 TO 66 S T EP 3:C! 
PCLE(!2S,67),P-!,.,,A:CIRCLE(103,124). 
R-:,,.,A:CIRCLE(!53.124),R-I,,.,A:NEXT 
120 SCREEN 3:GPEN"GPP:"AS iiFOR 1*2 ^0 
15: COLOR I:PRESET<35,85) : PRINT11, "IRE 
B0L":F0R 3*1 TO 300: NEXT: NEXT: DIM C(24 
) 

130 COLOR 4: SCREEN i : LOCATE 9,6:PR!NT" 
wQUE QUIERES" 1 ": LOCATE 11,12¡PR1NT "1- 
JUBAR'i LOCATE 3,1B:PRINT "2- EKPERIMEN 
TAR" 

140 H$=INKEY$:IF H*="" 0P INSTP("!2'\H 
$)=? THEN 140 ELSE: SCREEN 0:LOCATE 16, 
7:PRINT-ELIGE":L0CATE 3, 13: PPINT-5RAD0 

DE DIFICULTAD ENTRE 1 Y 3" 
150 EI=INKEY$:IF ÍW' 0P INSTRC123". 
Et)«f THEN 150 ELSE FOR 1=1 TO 9:C(I)» 
15:NEXT:F0R 1=10 TO 15: C ( 1 ) =4: NEXT: IF 
El*'!" THEN FOR 1*16 TO 24:C(I)M:NEXT 

ELSE FOR 1=22 TO 24: C í I) =13: NEXT: FOR 
1=16 TO ZlsIF E*="2 n THEN C(I)=4:NEXT 
ELSE C(I)=2:NEXT 

160 SCREEN 1: LOCATE 0, ll:PRINT n ¿NECESI 
TAS INSTRUCCIONES? S/N" 
170 B$=INKEY$:IF B$="" 0R INSTRCNnSs" 
,B$)=0 THEN 170 ELSE IF INSTR ("Nn" , B$) 
THEN LOCATE 0,11:PRINT SPC(4);"iUN MO 
MENTO POR FAV0R!";SPC(3):G0T0 240 
180 SCREEN 0:PRINT" DEBES SITUAR LAS P 












— 



IEZAS TAL Y CONO"rPRINTj¡PRINrAPARECEN 
EN LA SIGUIENTE PANTALLA. PRINT: PRIN 
TsPRINT" PAPA ELLO PULSA PRIMERO EL NU 
MERO DE":PRINT n LA RUEDA Y A CONTINUACI 
ON EL NUMEPO":PPINT:PPINT"DEL ANGULO D 
E GIRO,* 

190 LOCATE 4, 11 SPRINT"- EL NUMERO DE L 
AS RUEDAS ES: "¡LOCATE 18, 1 3: PRINT" 1 " : L 
OCATE 16,15tPRINT*2 3":L0CATE 4,!7¡P 
RINT"- EL NUMERO DE LOS GIROS ES:":L0C 
ATE 14 t 19s PRINT " 1 , 2, 3, 4, 5* s LOCATE 3,21 
sPRINTVii PULSA CUALQUIER TECLA »»• 
200 0$=INKEY$:IF D$="" THEN 200 ELSE I 
F H$«T THEN 240 ELSE SCREEN 2:G0SUB 
280 

210 REM 

220 REM POSICION ALEATORIA 
230 REM 

240 IF H$="2" THEN SCREEN 2:G0SUB 280: 
GOTO 560 ELSE K=21tRND(-TIME)+20:FOR I 
•1 TO K:C=3IRND(-TIME)+l:G=5tRND(-TIME 
HUON C GOSUB 620, 660, 700: NEXT: SCREEN 
2:G0SUB 280:GOTO 560 
250 REM 

260 REM PANTALLA 







270 REM 

280 GOSUB 300:GOSUB 310:GOSUB 410:GO3U 

B 420: GOSUB 430:GOSUB 480:GOSUB 490:GO 

SUB 500: GOSUB 290: GOSUB 330: GOSUB 360: 

GOSUB 370: GOSUB 450: GOSUB 440: GOSUB 32 

0: GOSUB 380: GOSUB 390: GOSUB 400: GOSUB 

340: GOSUB 350: GOSUB 470: GOSUB 460:GOSU 

B 520: GOSUB 510:RETURN 

290 CIRCLE(128,67),R,C(9),,B,A:CIRCLE( 

203,5),R,C(9),B3,B4,A:PAINT(156,17),C! 

?) :CIRCLE(128.67) ,R, 1 , , B, A: CIRCLE (203, 

5!,R,1,B3,B4,A:RETURN 

300 CIRCLE(I2B,67),R,C(1),B,B2,A:CIRCL 

E(128.-52),R,C(l),B4,B5.A:PAINT;i29,2) 

,C(1):CIRCLE(!28,67),R,1,B,B2,A:CIRCLE 

(128,-52),R,1,B4,B5,A:RETURN 

310 CIRCLE(128,67),R,C(2).B2,B3,A:CIRC 

LE{53,5).R,C(2),B5,,A:PAINT(100.15),C( 

2J:CIRCLE(128,67),R,!,B2,B3,A:CIRCLE(5 

3,5),R,1,B5,.A:RETUPN 

320 CIRCLE(128,67),R,C(20),B5,,A:CIRCL 

E(203, 124), R,C(20),B2,B3,A:PAINT( 176,7 

0),C(20):CIRCLEU28,67),R,1,B5,,A:CIRC 

LE(203,124),R,1,B2,B3,A:RET'JRN 

330 CIRCLE (153, 124), R,C(21),B,B2,A:CIR 

CLE(153,5),R,C(21),B4,B5,A:PAINT(153,6 

2),C(21):CÍRCLE(153,124),R,1,B,B2,A:CI 

RCLE(153,,5),R,1,B4,B5,A:RETURN 

340 CIRCLE(103,5),R,C(15),B5,,A:CIRCLE 

(178,67),R,C(15),B2,B3,A:PAINT(150,15) 

,C(15):CIRCLE(103,5),R,1,B5,,A:CIRCLE( 

178,67), R,1,B2,B3,A:RETURN 

350 CIRCLE(153,5),R,C(10),B3,B4,A:CIRC 

LE(78,67) ,R,C(10) , , B, A: PAINT ( 107, 16) ,C 

(10):CIRCLE(153,5),R,1,B3,B4,A:CIRCLE( 

78, 67) , R, 1 , , B, A: RETURN 

360 CIRCLE(103, 124) , R, C ( 16) , B, B2, A: CIR 

CLE(103,5),R,C(16),B4,B5,A:PAINT(120,6 

5),C(16):CIRCLE(103,124),R,1 J B,B2,A:CI 

RCLE(103,5),R,1,B4,B5,A:RETURN 

370 CIRCLE(128,67),R,C(17),B3,B4,A:CIR 

CLE(53,124),R,C(17),,B,A:PAINT(80,70), 




C(17):CIRCLE(12B,67),R, 1.B3.B4, A:CIRCL 

E(53,124),R,1,,B,A:RETURN 

380 CIRCLE(103, 124) , R, C (24) , ,B, A:CIRCL 

E(17B,67) ,R,C(24) , B3, B4, A: PAINT ( 130, 70 

>,C(24) :CIRCLE(103, 124) , R, 1 , , B, A: CIRCL 

E(178,67),R,1,B3,B4,A:RETURN 

390 CIRCLEÍ153, 124) , R, C (22) , B2, B3, A: CI 

RCLEÍ7B,67) ,R,C(22) , B5 , , A: PAINT ( 126, 72 

),C(22):CIRCLE(153, 124) ,R, 1,B2,B3,A:CI 

RCLE(78,67),R,1,B5,,A:RETURN 

400 CIRCLE(128,67),R,C(23),B4,B5,A:CIR 

CLE(128,1B6),R,C(23),B,B2,A:PAINT!128, 

124),C(23):CIRCLE(128,67),F;,1,B4,B5,A: 

CIRCLE(12B,186).R,1,B,B2,A:R.ETURN 

410 CIRCLE(103,124),R,C!3),B2,B3,A:CIR 

CLE(28,67),R,C(3),B5,,A:PAINT(75,72),C 

(3) :CIRCLE(103, 124) , R, 1 , B2, B3, A: CIRCLE 

(28,67),R,1,B5,,A:RETURN 

420 CIR€LE(103, 124) ,R, CÍ4) ,B3,B4, A:CIR 

CLEÍ2B, 186),R,C(4) ,,B,A:PAINT(56, 134) , 

C(4):CIRCLE(103,124),R,1,B3,B4,A:C!RCL 

E(28,186),R,1,,B,A:RETURN 

430 CIRCLE ( 103, 124) , R, C (5) , B4,B5, A: CIR 

CLE(103,243),R,C(5),B,B2,A:PAINT(103,1 

81!,C(5!:CIRCLEU03,124),R,1,B4,B5,A:C 

IRCLE(103,243),R,1,B,B2,A:PETURN 

440 CIRCLEÍ103, 124) , R, C ( 2 9) , B5 , , A: CIRC 

LE(178,186),R,C(19),B2,B3,A:PAINT(132, 

176),C(19):CIRCLE(103,124),R,1,B5,,A:C 

IRCLE(17B,186),R,1,B2,B3,A:RETURN 

450 CIRCLE(153,124),R,C(18),B3,B4,A:CI 

RCLE(7B,1865,P,C(18),,B,A:PAINT(106,14 

0),C(18):CIRCLE!153.124!,R.1,B3.B4,A:C 

IRCLE(7B,186),R,1,,B,A:RETURN 

460 CIRCLE(53,124),R,C(12),B5,,A:CIRCL 

E(12B.186),R,C(12),B2,B3,A:PAINT(100,1 

33),C(12):CIRCLE(53,124),R,1,B5,,A:CIR 

CLE!128,1B6),R,1,B2,B3,A:RETURN 

470 CIRCLE (7B, 67) , R, C ( 1 1 ) , B4, B5,A: CIRC 

LE(78,186),R,C(U),B,B2,A:PAINT(78,124 

),C(11):CIRCLE(78,67!,R,1,B4,B5,A:CIRC 

LE(78,1B6),R,1,B,B2,A:RETURN 

480 CIRCLE(153,124),R,C(6),B4,B5,A:CIR 

CLE(153,243),R 5 C(6),B,B2,A:PAINT(153,1 

B1).C(6):CIRGLE(153,124),R,1,B4,B5,A:C 

IRCLE(153,243),R,1,B,B2,A:RETURN 

490 CIRCLEÍ153, 1 24 ) , R, C ( 7) , B5, , A: CIRCL 

E(228,1B6),R,C(7),B2,B3,A:PAINT(200,13 

B),C(7):CIRCLE(153,124),R,1,B5,,A:CIRC 

LE(22B,186),R,1,B2,B3,A:RETURN 

500 CIRCLE(153, 124 ) , R, C (8) , , B, A: CIRCLE 

(228,67), R,C(B),B3,B4,A:PAINT(200,120) 

,C(8)!CIRCLE(153,124),R,1 M B,A:CIRCLE( 
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228,67), R,1,B3,B4,A:RETURN 

510 CIRCLE(178,186),R,C(14),B,B2,A:CIR 

CLE(17B,67),R,C(14),B4,B5,A:PAINT(17B, 

129),C(14):CIRCLE(178,186),R,1,B,B2,A: 

CIRCLE ( 178, 67) , R, 1 , B4, B5, A: RETURN 

520 CIRCLÉ(203,124),R,C(13),B3,B4,A:CI 

RCLEÍ12B, 186), R,C(13) ,,B,A:PAINT( 158,1 

45),C(13):CIRCLE(203,124),R,1,B3,B4,A: 

CIRCLE(128,186),R,1,,B,A:RETURN 

530 REH 

540 REM BUCLE 
550 REH 

560 C$=INKEY$:IF C$= H " OR INSTR(*Í23", 
C*)=0 THEN 560 

570 G*=INKEY$:IF 5$="" OP INSTRC12345 
\G$)=0 THEN 570 ELSE G=VAL(G$) 
580 IF C$="l" THEN GOSUB 620: IF G<4 T H 
EN GOSUB 740 ELSE GOSUB 950 ELSE IF C$ 
=■2" THEN GOSUB 660: IF G<4 THEN GOSUB 
810 ELSE GOSUB 1020 ELSE IF C$="3" THE 
N GOSUB 700: IF G<4 THEN GOSUB 880 ELSE 
GOSUB 1090 
590 REH 

600 PEH GIRO RUEDA 1 

610 REH 

620 FOP J=l TO G:D=C(20!:C(20)=C(23):C 

(23)=C(17):C(17)=C(2):C(2)=C(1):C(1)=C 

(9):C(9)=D:D=C(24):C(24!=C(22):C(22)=C 

(!6>:C(16)=C(10):C(10)=C(!5):C(15)=C(2 

1):C(21)=D:NEXT:RETURN 

630 REH 

640 REH GIRO RUEDA 2 

650 REH 

660 FOR J=l TO G:D=C(19):C(1?)=C(5):C( 
5)=C(4):C(4)=C(3):C(3)=C(16):C(16)=C(2 
4):C(245=D:D=C(18):C(1B)=C(12):C(12Í=C 
(11):C(11)=C(17):C(17)=C(22):C;22)=C!2 

3) :C(23)=D:NEXT:RETURN 
670 REH 

6B0 REH GIRO RUEDA 3 

690 REH 

700 FOR J=l TO G:D=C(7):C(7)=C(6):C(6) 
=C(1B):C(!B)=C(22):C(22)=C(21):C(21)=C 
(8):C(8)=D:D=C(13):C(13)=C(19):C(19)=C 
(23):C(23)=C(24):C(24)=C(20):C(20)=C(1 

4) : C ( 14) =D: NEXT: RETURN 
710 REH 

720 REH GIRO ANTIHORARIO RUEDA 1 
730 REH 

740 D=C(15):C(15)=1:G0SUB 340:C(15)=D: 
GOSUB 340:D=C(10):C(10)=1:6OSUB 350:C( 
10) =D: GOSUB 350: D=C ( 16) : C ( 1 6) = 1 : GOSUB 
360:C(16)=D:GOSUB 360 



750 D=C(22):C(22)=1:G0SUB 390:C(22)=D: 
GOSUB 390: D=C ( 24 ) : C (24 ) = 1 : GOSUB 380:C( 
24)=D:G0SUB 380: D=C (21 ) : C (21 ) =1: GOSUB 
330:C(21)=D:GOSUB 330 
760 D=C(9):C(9)=1:G0SUB 290: C (9) =D: GOS 
UB 290:D=C(1):C(1)=1:GOSUB 300:C(1)=D: 
GOSUB 300:D=C(2):C(2)=1:GOSUB 310:C(2) 
=D:GOSUB 310 

770 D=C(17):C(17)=1:G0SUB 370:C(17)=D: 
GOSUB 370:D=C(23):C(23)=1:GOSUB 400:C( 

23) =D:G0SUB 400: D=C (20) : C (20) =1 : GOSUB 
!20:C(20)=D:GOSUB 320: RETURN 1160 

780 REH 

790 REH GIRO ANTIHORARIO PUEDA 2 
800 REH 

810 D=C(22):C(22)=1:G0SUB 390:C(22)=D: 
GOSUB 390:D=C(17):C(17)=1:GOSUB 370:C( 

17) =D: GOSUB 370 : D=C ( 1 1 ) : C ! 1 1 ) = 1 : GOSUB 
470:C(11)=D:GOSUB 470 

820 D=C(12):C(12!=1:S0SUB 460:CÍ12)=D: 
GOSUB 460:D=C(18):C(18!=1:GOSUB 450:C( 

18) =D:GOSUB 450:D=C(23) :C(23)=1:G0SUB 
400:C(2!)=D:GOSUB 400 

830 D=C(24):C(24i=l:60SUB 380:C(24>=D: 
GOSUB 380:D=C(16):C(16)=1:GOSUB 360:C( 
16)=D:GOSUB 360:D=C(3) : C (3) =1 : GOSUB 41 
0:C(3)=D:GOSUB 410 

840 D=C(4):C(4)=1:G0SUB 420: C (4) =D : GCS 
UB 420:D=C(5):C(5)=1:GOSUB 430:C(5!=D: 
GOSUB 430:D=C(19) : C ( 19) =1 : GOSUB 440: C I 

19) =D: GOSUB 440: RETURN 1160 
850 REH 

860 REH GIRO ANTIHORARIO RUEDA 3 
870 REH 

880 D=C(20):C(20)=1:GOSUB 320:C(20!=D: 
GOSUB 320:D=C(24):C(24)=1:GOSUB 380:C( 

24) =D:G0SUB 380:D=C(23) : C ( 23) = 1 : GOSUB 
400:C(23)=D:GOSUB 400 

890 D=C(19):C(19)=1:G0SUB 440:C(19)=D: 
GOSUB 440:D=C(13) : C ( 13) = 1 : GOSUB 520:C( 
13)=D:GOSUB 520: D=C ( 14) : C ( 14) =1 : GOSUB 
510:C(14)=D:GOSUB 510 
900 D=C(8):C(8)=1:G0SUB 500:C(8)=D:GOS 
UB 500:D=C(21):C(21)=1:GOSUB 330:C(21) 
=D:GOSUB 330: D=C (22) : C (22) =1 : GOSUB 390 
:C(22)=D:G0SUB 390 

910 D=C(1B):C(18)=1:G0SUB 450:C(18)=D: 
GOSUB 450:D=C(6):C(6)=1:GOSUB 480:C(6) 
=D:GOSUB 480:D=C(7) : C (7) =1 : GOSUB 490: C 
(7)=D:G0SUB 490:RETURN 1160 
920 REH 

930 REH GIRO HORARIO RUEDA 1 
940 REH 
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950 D=C(24):C(24)=S:G0SUB 380:C(24)=D: 
50SUB 380:D=C(22):C(22)=1:GQSUB 390:C( 

22) =D:G0SUB 390:D=C(16) : C í 1 6) =1 : BOSUB 
360:C(16)=D:GOSUB 360 

960 D=C(10):C(10) = 1:GOSUB 350:C í 10) =D: 
50SUB 350:D=C(15):C(15)=1:6OSUB 340:C( 
15)=D:G0SUB 340:D=C(2i) : C (21) =1 : GOSUB 
330: C (21 !=D: GOSUB 330 
970 D=C(20):C(20)=1:GQSUB 320:C(20)=D: 
50SUB 320:D=C(23):C(23)=1:GQSUB 400:C( 

23) =D:GDSUB 400: D=C < 17) : C í 17) =1 : GOSUB 
370:C(17)=D:GOSUB 370 

980 D=C(2):C(2)=1:G0SUB 310: C (2) =D: GOS 
UB 310:D=C(1):C(1)=1:GOSUB 300:Cfl)=D: 
GOSUB 300:D=C(9):C(9)=1:GOSUB 290:C(9) 
=D:GCSüB 290:RETURN 1160 
990 REH 

1000 REH GIRO HORARIO RUEDA 2 
1010 REK 

1020 D=C!1B):C(18)=1:GQSUB 450:C(18)=D 
:G0SUB 450:D=C(12):C(12)=1:GOSUB 460:C 
(12)=D:G0SUB 460: D=C í 1 1 > : C ( 1 1 ) = 1 : GGSUB 

470:C(11)=D:GOSUB 470 
1030 D=C < 17) : C ( 17) = 1 : GOSUB 370:C(17)=E 
¡GOSUB 370: D=C (22) : C (22) =1: BOSUB 390:C 
<22)=D:G0SUB 390: D=C (23) : C Í23) =1: GOSUB 

400:C(23)=D:GOSUB 400 
1040 D=C(19):C(19)=1:G0SUB 440:C(19)=D 
:G0SUB 440: D=C (5) : C (5) =1 : 60SUB 430:C(5 
)=D:GOSUB 430: D=C (4) : C (4) =1 : GOSUB 420: 
:(4)=D:G0SUB 420 

1050 D=C(3):C(3)=1:G0SUB 410:C(3)=D:GC 
SUB 416:D=Cd6):C(16)=l:G0SUB 360:C(16 
)=D:G0SUB 360:D=CÍ24) :C(24)=1:GGSUB 35 




AAA 

VVV 




3:C(24)=D:60SUB 380:RETURN 1160 
1060 REH 

1070 REH GIRO HORARIO RUEDA 3 
1080 REH 

1090 D=C(13):C(13)=1:G0SUB 520:G(.13)=D 
: GOSUB 520:D=C(19):C(19)=1:6QSUB 440:C 

(19) =D:G0SUB 440: D=C (23) :C (23) =1: GOSUB 
400:C(23)=D:6OSUB 400 

1100 D=C(24):C(24)=1:G0SUB 380:C(24)=D 
¡GOSUB 3B0:D=C(20):C(20)=1:GOSUB 320:C 

(20) =D:GOSUB 320:D=C(145 : C ( 14 )= 1 : GOSUB 
510:C(14)=D:GOSUB 510 

1110 D=C(7):C(7)=1:G0SUB 490:C(7)=D:GO 
m 490:D=C(6):C(6)5l:6OSUB 480:C(6)=D 



¡GOSUB 480:D=C(18) : C C 13) =1 : GDSL'B ¿50:C 
(18)=D: GOSUB 450 

1120 D*C (22) f C (22) «1 s 60SU8 390:C(22)=D 
:G0SUB 390:D=C(21):C(21)=1:GOSUB 330:C 
(21)=D:60SUB 330:D=C(8) : C (8) =1: GOSUB 5 
00:C(8)=D:GOSUB 500:RETURN 1160 
1130 REH 

1140 REH COMPROBACION DE LA SOLUCION 
1150 REH 

1160 IF H$="2" THEN 560 ELSE FOR 1=1 T 
O 9:IF CÍIXM5 THEN 560 ELSE NEXT: FOR 
1=10 TO 15: IF C(I)<>4 THEN 560 ELSE N 
EXT 

1170 IF E$="l" THEN FOR 1=16 TQ 24: IF 
C(I)<>4 THEN 560 ELSE NEXT ELSE FOR 1= 
22 TO 24: IF C(I)<>13 THEN 560 ELSE NE,< 
T: FOR 1=16 TO 21 : IF E$="2" THEN IF E(l 
)<>4 THEN 560 ELSE NEXT ELSE IF CÍDO 
2 THEN 560 ELSE NEXT 
1180 REH 

1190 REM DESPEDIDA 
1200 REM 

1210 SCREEN 3: IF É$«T THEN A$=" iLIST 
3"' ELSE IF E$='2" THEN A$=" i SABIO j " E 
LSE A$=" ¡GENIO! " 

1220 FOR !=2 TO 15:C0L0R I : PRESET (20, 5 
5):PRINTI1,A$:F0F: J=l TO 500:NEXT:NE* T 
¡COLOR 4:SCREEN 1: LOCATE 4,11:PRINT n ¿ 
OTRA PARTIDA? <S/N>" 
1230 A$=INKEY$:IF A$=" 1 OR INSTRCNnBs 
",A*)=0 THEN 1230 ELSE IF INSTR("Ss".A 
$! THEN 130 ELSE SCREEN 3:F0R 1=2 TO 1 
5:C0L0P I: PRESET (20. 85) : PRINTI1 , " ¡ ADIC 
S!':FOR M TO 500: NEXT: NEXT: NEW 







- , 



Test de listado 



10 - 
20 - 
30 - 
40 - 
50 - 
60 - 
70 - 
80 - 
90 - 
100 - 
110 - 67 
120 - 91 



130 - 36 
140 -139 
150 -191 
160 -142 
170 -182 
180 - 18 
190 -210 
200 - 83 
210 - 
220 - 
230 - 
240 -189 



250 - 
260 - 
270 - 
280 -151 
290 -173 
300 - 
310 -152 
320 - 97 
330 - 33 
340 -179 
350 -176 
360 - 44 



370 -102 
380 -117 
390 -111 
400 -220 
410 - 65 
420 -247 
430 - 76 
440 - 38 
450 - 27 
460 -254 
470 -190 
480 - 73 



490 -238 
500 -139 
510 -192 
520 - 13 
530 - 
540 - 
550 - 
560 - 85 
570 - 52 
580 - 84 
590 - 
600 - 



610 - 
620 -124 
630 - 
640 - 
650 - 
660 -112 
670 - 
680 - 
690 - 
700 -154 
710 - 
720 - 



730 - 
740 -115 
750 - 37 
760 - 2 
770 - 94 
780 - 
790 - 
800 - 
810 -246 
820 -159 
830 - 71 
840 -154 



850 - 
860 - 
870 - 
880 - 37 
890 -204 
900 -235 
910 -167 
920 - 
930 - 
940 - 
950 - 82 
960 - 70 



970 -252 
980 -100 
990 - 
1000 - 
1010 - 
1020 - 7 
1030 -142 
1040 - 56 
1050 -169 
1060 - 



1080 - 



1000 - 11 
1100 -230 
1110 - 69 
1120 - 77 
1130 - 
1140 - 
1150 - 
1160 - 55 
1170 -226 
1180 -* 
1190 - 
1200 - 



1210 -203 
1220 - 6 
1230 -124 



TOTAL: 
8466 



Blagiromatica(ii 




FUNCION 

D 


ES DEAN 

UU JLyJLJ JL JUL\I 

E GIRO 


'GULO 



Comenzamos a ver en el artículo del pasado mes las figuras base, que como debéis saber no son otra cosa que el 
conjunto de puntos iniciales antes del primer giro. En el presente artículo, ilustrado con fotos del programa 
"giromatic" profundizaremos sobre las figuras base y además veremos las evoluciones de algunas figuras. 

4.- Punciones del ángulo de giro 



La línea 90 puede expresarse de for- 
ma distinta a como se ha hecho, 
(Z=Z+H), poniendo la expresión de Z 
en función de H y J sin introducir la pro- 
pia variable en la expresión. 

4.1- Giro proporcional 

Una primera forma que cabe pensar 
es poner el giro de cada punto propor- 
cional a su número de orden. Con ello la 
expresión de z sería: 
Z=J.H 

A este tipo de giro le llamaremos pro- 
porcional. Con la expresión indicada, el 
punto cero permanece siempre en la 
misma posición. Si queremos que gire 
todo el conjunto habrá que poner 
Z=(J+1).H. 

4.2- Giro acelerado 

Si calculamos el giro provocado por la 
expresión Z=Z+H podemos ver que el 
giro del punto J en la iteración M es: 
Z=(J+1 +(M-1).(N+1)).H 

Para programar este giro, habrá que 
introducir en el programa la variable M 
que recuente las iteraciones o número 
de figura, para lo cual basta hacer 
M=M+1. Iniciando esta variable con el 

E volución de un cuadrado. 



fH 41 4fc 41 41 4% 4c 4S 41 



Wk 4fe 4fe 41 4fc 41 4fc 41 



Figuras base. Cuadrado de 32 puntos. 

valor cero (que correspondería a la pre- 
sentación de la figura base) se tendrá: 



Z = (J+1+M.(N+1)).H 
y si queremos que la figura no 



el 



Figuras base: Hipérbola de 24 puntos. 
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punto O, la expresión sería: 
Z = (J + M.N).H 
El giro que produce esta fórmula es 
mucho mayor que el giro proporcional, 
por lo cual le llamaremos "giro acelera- 
do", aumentando el ángulo de giro con 
el valor de M. Esta variable nos define el 
número de figura, que puede ayudar a 
identificar ésta en la gran mayoría de los 
casos, es decir cuando se haya mante- 
nido constante el valor de H en una serie 
de figuras definidas por una figura base 
y un número de puntos N. 

4.3- Giro simétrico 

Una forma de hacer girar los puntos 
sería que lo hicieran alternadamente en 
sentidos opuestos y además proporcio- 
nalmente al número de figura. A este 
tipo de giro le llamamos "simétrico" y 
viene dado por 

Z=H.(-1) J .(M+1) 

4.4- Giro trigonométrico 

Una forma de giro que da buenos re- 
sultados, es el que llamaremos giro "tri- 
gonométrico, en el que el giro de cada 
punto se establece como función trigo- 
nométrica de su número de orden. 

Para ello haremos: 



S = 



2.Pi 
N 



.Q yZ=H.senS.J. 



o bien con las funciones coseno o tan- 
gente en lugar del seno. 

Cuando J varía de O a N,S toma valo- 
res entre y 2.Q.PÍ, siendo Q una varia- 
ble que nos define el número de vueltas 
o bucles establecidos para la función tri- 
gonométrica. Haciendo Q=0, la figura 
no gira con las funciones seno y tangen- 
te y gira un ángulo constante en cada 
vuelta con la función coseno, es decir te- 
nemos siempre en la pantalla la figura 
base, quieta o girando. 

Evolución de una hipérbola. 



5.- Figuras base en el programa 
"giromatic" 

En el apartado 3 se trató de un caso 
elemental de figura base, constituida 
por los puntos de un segmento rectilí- 
neo situados equidistantes en el eje po- 
lar. Con esta figura se ha podido experi- 
mentar la clave del programa, es decir, 
la forma en que se hacen girar los pun- 
tos. 

Las figuras que se van consiguiendo a 
partir del segmento rectilíneo, son ya 
bastante originales, especialmente 
cuando se unen los puntos mediante lí- 
neas rectas, aunque por su sencillez no 
se incluyen en el programa "GIROMA- 
TIC". Sin embargo, es fácil su inclusión 
pues requiere pocas modificaciones. 

A continuación se van a analizar figu- 
ras base más complejas, que dan visto- 
sas figuras, y en algunas ocasiones muy 
curiosas, según los parámetros que se 
utilicen. 




Iniciamos la descripción con la elipse, 
que es la que dio motivo al invento de 
este programa, como ya se ha explicado 
en la introducción. 

5.1- Elipse 

Vamos a definir una elipse mediante 
la intersección de las proyecciones de 
los puntos de dos circunferencias con- 
céntricas situados en el mismo radio, tal 
como se indica en la figura. Sea R el ra- 
dio de la circunferencia mayor y E.R. el 
de la menor, siendo E menor que 1 . Si el 
ángulo de radio con el eje polar ROX lo 
designamos por A, se tiene que las coor- 
denadas del punto P son: x=R.cos A 
y=E.R. sen A cumpliéndose por tanto: 



R 2 



Elipse 



+ E2 R2 =; ecuación de una 

Como que pretendemos expresar el 
giro de los puntos en coordenadas pola- 
res, habrá que determinar el módulo y 
argumento del punto P. 

Si el módulo del punto P lo designa- 
mos por B(0,P) se tiene: 
B(0,P) = Vx 2 +y 2 =R.Vcos 2 A+sen 2 A.E 2 
El argumento POX que designaremos 
porB(1,P) será: 

tg B(1 . P) = y/x = E. tg A y por tanto 
B(1,P) = arctg (E. tg A) 

Si queremos representar una elipse 
con N puntos, podemos hacerlo defi- 
niendo N ángulos iguales a A, con lo que 
el valor de A sería: 

A = 2. Pi/N 

Los N puntos quedan así situados en 
un ángulo de 360 grados. Pero pueden 
también repartirse en un ángulo mayor, 
dando K vueltas completas de circunfe- 
rencia, en cuyo caso el ángulo sería: 

A= 2. K. Pi/N 

El valor de K puede ser entero o frac- 
cionario (decimal). En éste último caso, 
los N puntos quedan repartidos en un 
número no entero de vueltas. 



Dos fases de la evolución de una margarita de 96 puntos. 
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LAGIROMATICA(III) 




Dos fases de la evolución de una margarita de 96 puntos. 



Los N puntos vendrán pues definidos 
por Aj =J.A., variando J de 1 a N. Sin 
embargo, como por comodidad definire- 
mos para N puntos una matriz a partir 
del valor de N, en realidad tendremos 



N + 1 puntos al variar en el programa J 
de O a N. Si el valor de K es entero, coin- 
cidirán en la representación gráfica, el 
primer y último punto. 
Aunque los intervalos del ángulo A 



entre dos puntos consecutivos son igua- 
les, no sucede lo mismo con el argu- 
mento del punto B(1 , J). El sistema em- 
pleado para definir así la elipse, da lugar 
a que los puntos estén más concentra- 
dos en los extremos del eje mayor que 
del eje menor, es decir, hemos definido 
por puntos una curva con densidad va- 
riable de puntos a lo largo de su trazado. 
Este aspecto es muy importante en el 
prograama «GIROMATIC», ya que por 
su causa se producen figuras en las que 
se mezclan líneas rectas con curvas, 
por lo menos aparentemente en la pan- 
talla. 

En efecto, en las zonas de alta densi- 
dad de punto, aún a pesar de los giros 
que se van produciendo y que tienden a 
separar cada dos puntos consecutivos, 
si el ángulo de giro H es pequeño, los 
puntos sucesivos quedan muy próxi- 
mos, de forma que al unirlos mediante 
las sentencias LINE, la apariencia en la 
pantalla es de líneas curvas. En cambio, 
en las zonas de baja densidad de pun- 
tos, éstos quedan suficientemente dis- 
tanciados y por tanto ¡as rectas apare- 
cen como tales. 

Por J.M. Climent Parcet 



ÍTlasier 




Computen* 



CREADOR DE SOFTWARE * STANDARD Y A 
MEDIDA * PROGRAMAS MSX 

EN DISCO 



CONTABILIDAD + I.V.A 

Adaptada al Plan Gral. Contable. 

GESTION DE INVENTARIOS 

Control de almacén, entradas, salidas, por distin- 
tos conceptos, listados, etc. 

BASE DE DATOS 

Permite crear ficheros, opción de cargar, grabar, 
listar, seleccionar, consultar, totalizar, modificar, 
salida de etiquetas... 

STAT PAC (estadística) 

Cálculo estadístico básico: media varianza, des- 
viación con gráficos de funciones, regresiones li- 
neales, exponenciales, logarítmicas y polinómi- 
cas. 

LVJL 

Programa para el control del libro de compras, 
ventas y gastos, con relación a la declaración de 
I.V.A. 




ista, selecciona, saca 



EN CINTA 

BASE DE Di 

Crea ficheros, 
etiquetas, etc. 

TRADUCTOR DE IDIOMAS 

Permite la traducción entre dos idiomas, cuales- 
quiera que sean. 

ECUACIONES LINEALES 

Resuelve cualquier sistema de ecuaciones de has- 
ta 10 incógnitas. 

LOTO 

Lotería primitiva con estadísticas y reducidos. 

PARA APRENDER 
BASIC 

Este libro es el resultado de la exr. 
aulas de su autor. Constituye una 
ra el estudiante y el autodidacta. 




... para aprender a programar tu ordenador, ya está a la venta el libro -CURSO MSX BASIC» es- 
crito por Rafael Gómez, director gerente de MASTER COMPUTER y editado por MARCOMBO. 
MASTER COMPUTER. S.A. Ctra. Esplugues, 42. Tel. 375 10 18. Cornellá (Barcelona) 





DE MAILING 



¡NOS APLICAMOS A SER UTILES! 



lililí 



Deja el manual de lado, inserta este breviario de 
basic en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts. 



r 



V. 



Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes 
Lo último 
en soft. 



. ENVIA HOY MISMO ESTE CUPON — 

' Nombre y apellidos 

I Dirección 

I Población CP Prov 

I □ Tutor Basic Ptas. 3.500- □ Adaptador Bee Card Ptas. 2.850- 

I □ SweetAcorn Ptas. 5.200- □ Backgammon Ptas. 5.200- 

I □ BarnStormer Ptas. 5.200- □ Chock'n Pop Ras. 5.200,- 

| Gastos de envío por cada producto 1 00 - pts. Remito talón bancario de 



{lllt 



lili 



Tel. 



Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 1 





□ Adaptador Softcard Ptas. 2.850- 

□ Shark Hunter Ptas. 5.200- 

□ Le Mans 2 Ras. 5.200- 

pts. a la orden de Manhattan | 

Barcelona. j 




HACKERS versus 
PIRATAS 



Según varios informes realizados a 
nivel nacional en Japón, se está in- 
crementando de forma alarmante el 
fenómeno HACKER. Existe en nuestro 
país un cierto desconocimiento de este fe- 
nómeno, que en numerosos casos se con- 
funde con la piratería. En realidad se ha 
demostrado que en aquellos países en los 
que abundan los Hackers los piratas dis- 
minuyen. 

Vamos a comentar someramente en qué 
consisten los hackers y los piratas. 

Un pirata informático (tan abundantes 
por nuestros lares) es aquella persona 
que se dedica a desproteger y copiar ilegal- 
mente programas comerciales de cual- 
quier índole. En el mercado MSX destaca 
la enorme piratería en el campo de los Jue- 
gos de ordenador, aunque también se pro- 
duce con otros programas. Existen mu- 
chas clases de piratas: desde aquellos que 
copian los programas de su vecino/a co- 
nectando entre sí dos cassettes a los Jóve- 
nes genios de la informática que disfrutan 
rompiendo las complicadísimas protec- 
ciones de algunos juegos. Hay un abismo 
entre ambos. 

Un hacker, por otro lado, es aquel que se 
dedica a Introducirse en ordenadores aje- 
nos. Esto es posible gracias a la intercone- 
xión de los grandes ordenadores mediante 
la línea telefónica. Mediante este sistema, 
con un pequeño ordenador, un MSX por 
ejemplo, el hacker puede introducirse en 
una red de grandes ordenadores tipo VAX 
o IBM. El daño producido por estos hac- 
kers puede llegar a ser enorme. Por suerte, 
en nuestro país los hackers son muy esca- 
sos, debido a la escasez de redes de ordena- 
dores interconectados. Es este tipo de "in- 
cordios" informáticos el que está difun- 
diéndose en Japón, dejando a un lado a los 
piratas. ¿Quién va a copiar un pequeño 
programa para MSX pudiendo utilizar 
grandes programas en ordenadores mu- 
cho 



IBM ANUNCIA 
EL PC-ET 



IBM anunció la aparición de su nuevo 
ordenador IBM PC-ET (Tecnología 
extendida), basado sobre un chlp In- 
tel 80386. 

La importancia de esta aparición para 
los usuarios de MSX es relativamente 
grande, ya que, en su versión base, el orde- 
nador viene dotado de un lector de disket- 
tes de 3.5 pulgadas y de 720 Kb de capaci- 
dad. Este formato es el habitualmente uti- 
lizado por los MSX debido a sus ventajas 
respecto a los discos de 6.26 pulgadas. 
Esta decisión dé IBM marca definitiva- 
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mente la pauta para la estandarización 
del nuevo (no tanto para los usuarios de 
MSX) formato de discos flexibles. El PC-ET 
Incorpora en su versión básica un lector 
de diskettes de 3.5 pulgadas, como ya he- 
mos comentado; y un disco duro de 30 
Mbytes. Su resolución gráfica ascenderá a 
1024 x 1024 píxels (puntos) generada por 
un chlp 34010 de Texas Instruments. El 
teclado, por último será el teclado extendi- 
do del AT3, que incorpora, entre otros mu- 
chos detalles teclas separadas de control 
de cursor. 

El sistema operativo que utilizará este 
aparato será un MS-DOS 5.00, o ADOS (re- 
cuérdese que los MSX utilizan el MSX- 



METODOLOGIA 
DELA 

PROGRAMACION 

Un libro muy útil para 
iniciarse 

Ferró Moret, SA. siguiendo la línea 
que le caracteriza ha editado un li- 
bro especialmente útil para aque- 
llos que deseen iniciarse en las tareas de la 
programación. 

Esta vez se trata del libro titulado "Me- 
todología de la programación", recomen- 
dado especialmente a las escuelas de ense- 
ñanza de informática además de para neó- 
fitos. Este libro ha sido realizado por A 
Martínez y J. Ameller profesores del Ins- 
tituto politécnico del ejército español y de 
la Universidad nacional de educación a 
distancia 

Se trata de una introducción a la lógica 
del ordenador, "que sirve como introduc- 
ción a la programación en cualquier len- 
guaje. No se requieren conocimientos pre- 
vios de informática, y además contempla 
diversos métodos de programación, desde 
los clásicos a los más modernos. En resu- 
men, un libro recomendable totalmente. 




DOS, que desgraciadamente no alcanza el 
nivel de la versión 1.25 de MS-DOS). 

Digamos, además que la memoria RAM 
del ordenador oscilará entre 1 Mbyte y 1 
Gigabyte. 

Repetimos por tanto; IBM adopta el sis- 
tema de unidades de disco hace tiempo uti- 
lizado por los MSX con lo que los MSX se- 
rán capaces de cargar los discos genera- 
dos con un IBM. Por fin se hará realidad 
aqueUo de repasar con el ordenador do- 
méstico el trabajo realizado con el ordena- 
dor profesional, sin ninguna incompatibi- 
lidad. 



SPACE SHUTTLE 




Este nuevo juego de Aun VISION si- 
mula una operación espacial abor- 
do de una lanzadera espacial (Spa- 
ce 8huttle). Tu misión se divide en varias 
etapas: salir de la atmósfera terrestre, si- 
tuarte en la órbita preestablecida, lanzar 
un satélite altamente secreto y tomar con- 
tacto con otros satélites. 

Debes también realizar correctamente 
todas las maniobras de reentrada en la at- 
mósfera para no quedar carbonizado en el 
intento. Por último has de aterrizar la lan- 
zadera en la base de Edwars de la Fuerza 
Aérea. 

El juego tiene la apariencia de un simu-. 
lador de vuelo; pero resulta mucho más 
complejo. Las escenas son bastante más 
variadas debido a las diferentes fases del 
juego. Los gráficos y controles de la lanza- 
dera están muy bien resueltos, ya que se- 
gún se nos informa en el manual del pro- 
grama, han sido realizados en colabora- 
ción con personal de la NASA, para conse- 
guir el máximo realismo en el Juego. 

Los controles son numerosos y requie- 
ren un buen período de aprendizaje; pero 
los amantes de los Juegos de simulación lo 
encontrarán Interesante y extremada- 
mente atractivo. Hagamos notar que, los 




controles, siendo en apariencia similares 
a los de otros simuladores de vuelo no son, 
en realidad nada parecidos, debido a las 
condiciones de ingravidez a las que se ve 
sometida la nave. 

Existen tres niveles en el Juego. El pri- 
mero es el de autovuelo, en el que pilotas 
una nave controlada desde tierra. De este 
modo puedes habituarte a los controles de 
tu nave sin peligro. Es un buen método 
para conseguir el dominio necesario de 
los controles, ya que en este nivel se pasa 
por todas las fases del juego. 

En el segundo, el control de tierra solo 
maneja ciertos aspectos secundarios de la 
nave, de modo que la responsabilidad está 
en tus manos. Es el nivel idóneo para am- 
pliar tu dominio de los controles y para 
aprender a solventar las posibles contra- 
riedades que aparezcan a lo largo del vue- 
lo. 

Por último, en el tercer nivel, estas sólo 
ante los controles de tu nave. Tu única 
ayuda será el computador de a bordo que 
te avisará cuando las cosas empiecen a ir 
mal... 



INFORMATICA 
EN ESPAÑA 

Los pequeños se engrandecen 

Según un informe realizado por la Di- 
rección General de Electrónica e Ln- 
formática del Ministerio de Indus- 
tria el número de ordenadores instalados 
en nuestro país, entre 1983 y 1986, ascen- 
dió un 36,3 por 100, mientras que su valor 
sólo se incrementaba en un 7 por 100. 

De este hecho se deduce, en primer lu- 
gar, un importante auge de la informática 
de bajo costo, es decir, los ordenadores 
personales y domésticos (sector este últi- 
mo en el que se inscriben nuestros MSX). 
Esta alza continuada del número de orde- 
nadores personales y domésticos hace 
prever nuevas y más interesantes apari- 
ciones en este campo. Las mayores empre- 
sas de informática entran, cada vez con 
mayor fuerza en el campo de los ordenado- 
res personales y domésticos. Claro ejem- 
plo de esto son dos grandes empresas del 
mundo informático. Philips, empresa am- 
pliamente conocida gracias a sus aplica- 
ciones especificas controladas por gran- 
des ordenadores se encuentra dentro del 
mercado MSX con numerosos modelos. 
Por otra parte, para dar un ejemplo algo 
más alejado de nuestro sistema, D3M, in- 
discutible líder en el sector informático, 
desarrolló un ordenador doméstico, el PC 
júnior (PC Jr), compatible con sus ordena- 
dores personales de gama PC/XT/AT; pero 
destinado al mismo mercado que aquí ocu- 
pan los MSX. 

Es bien patente, por tanto, la importan- 
cia que están desarrollando los pequeños 
ordenadores, y el interés de las grandes 
empresas por controlar este codiciado 
mercado. 




ENTREGA DE PREMIOS 
2.° GRAN CONCURSO DE PROGRAMAS 



Recientemente tuvo lugar en nuestra 
redacción la entrega de los premios co- 
rrespondientes al segundo gran concurso 
de programas convocado por nuestra re- 
vista. 

Como sabéis, este premio correspondió 
a Eduard Playá González por su programa 
MONTGOLFIEPu. La entrega del mismo - 
una unidad de disco PHILIPS VY 0010- 
fue efectuada por nuestra directora ejecu- 
tiva Birgitta Sandberg. 

Aprovechamos la entrega del premio 
para conversar con Eduard acerca de su 
programa y de la técnica que había em- 
pleado para su confección. 

A. la hora de confeccionar el juego, 
¿traviste problemas con loe 8PMITM8? 

-Más que problemas, trabajo. Para que 
el juego no tuviera problemas con la ine- 
xorable regla del quinto sprite, tuve que 
controlar las rutinas que mueven a los pá- 
jaros de modo que no me coincidieran más 
de cinco en una línea. 

¿Qué técnica empleaste para opti- 
mizar la velocidad de ejecución del 
juego? 

-Para mejorar la velocidad, tuve que 
acortar hasta el máximo posible el bucle 
principal, además de evitar que se produ- 
jeran al mismo tiempo las llamadas a las 
subrutinas. 8i observáis el desarrollo del 
programa veréis que las llamadas a su- 
brutinas se producen de una manera in- 
termitente. A efectos de optimización, uti- 
licé todos los trucos que publicáis en "Tru- 
cos de programador" referidos a ese pun- 
to. Me han servido de mucho. (Nos va a ha- 
cer enrojecer este chico). 



¿Qué fue lo que más trabajo te costó 
a la hora de desarrollar el programa ? 

-Sobre todo el acortar el listado al máxi- 
mo, puesto que las primeras versiones del 
programa tenían una longitud kilométri- 
ca, y la depuración del programa me Devó 
no poco tiempo. Además, como pretendí 
cuidar los detalles" al máximo (instruccio- 
nes, títulos etc.) esta tarea de depuración 
me entretuvo bastante. 

r, hablando de música, ¿cómo 
ideaste la melodía? 

-De oído, con los rudimentos de música 
que poseo. Cogí la flautay empecé a probar 
hasta que conseguí una serie de notas que 
me gustaron, y realicé su transcripción. 
De todos modos tuve bastantes problemas 
a la hora de compatibilízar la música ge- 
nerada mediante SOUND y PLAY. 

T ahora, la pregunta inevitable. 
¿Qué te parece el premio? 

—Indiscutiblemente, estoy muy conten- 
to. Llevaba un temporada rondando una 
unidad de disco, además, tengo entendido 
que las unidades de PHILIPS son de lo me- 
iorcito que hay para MSX. Efectivamente, 
Eduard no se equivoca. Las unidades PHI- 
LIPS VY 0010 unen a su solidez, excelente 
diseño y prestaciones, la garantía de su 
propia marca, sobradamente reputada no 
sólo por los usuarios de MSX, sino por 
cualquier sector del público general. 

Tomen nota los futuros concursantes: 
concreción, claridad y velocidad de ejecu- 
ción combinados con una idea original 
pueden darles el premio del próximo con- 
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En esta sección ya tradicional de nuestras páginas abordamos un tema por demás interesante. Los sistemas de 

comunicaciones y sus elementos básicos de interacción. 





ELEMENTOS PRINCIPALES QUE 
INTERVIENEN EN UN SISTEMA DE 
COMUNICACIONES 

Un sistema de comunicaciones se 
puede definir como un medio técnico 
que nos permite el intercambio de infor- 
mación y el tratamiento de la misma. En 
términos reales, nos encontramos en la 
actualidad con distintos ejemplos en el 
empleo de los sistemas de comunica- 
ciones, aplicados a las más variadas 
manifestaciones. Los bancos, por ejem- 
plo, utilizan continuamente estos me- 
dios; ingresar o extraer dinero da pie a 
que se inicie un proceso de consulta y 
respuesta, en el que se ve inmerso por 
completo el sistema de comunicacio- 
nes. 

Históricamente los sistemas de co- 
municaciones han variado la técnica 
transmisora de la información. Al princi- 
pio se hacía aleatoriamente, después, 
mientras el hombre se civilizaba, fueron 
cambiando las técnicas: el humo de los 
indios americanos, las señales con es- 
pejos, el telégrafo, hasta llegar al actual 
conglomerado compuesto por los orde- 
nadores.. 

Según sea el tipo de utilización del 
sistema de comunicaciones, podemos 
agruparlos en los siguientes apartados: 

-CONSULTA.- La consulta es un ser- 
vicio ordinario que prestan los servicios 
de comunicaciones. A través de la con- 
sulta, la persona que la haya hecho, 
puede acceder, a través de una termi- 
nal, a los archivos o la base de datos. 
Esta devuelve la información pedida en 
un proceso muy rápido de búsqueda. 

-ACTUALIZACION DE REGIS- 
TROS: La actualización de registros 
permite actualizar el registro de la base 
de datos, aunque se produzca desde 
una terminal a distancia al ordenador 




central o principal, pudiendo alterar de 
esta manera la información registrada. 
Por ejemplo, será necesario alterar los 
registros, en las operaciones de los ban- 
cos cada vez que el gobierno cambie el 
tipo de imposición fiscal. 

-ENTRADA DE DATOS.- La opera- 
ción de entrada de datos solo permite la 
entrada de información al ordenador 
central, sin que se tenga que dar una 
respuesta o haya que mantener abierta 
la base de datos para otras operacio- 
nes. En el caso de la entrada de datos, la 
información llega directaamente al orde- 
nador central y éste la trata automática- 
mente. 

-TIEMPO COMPARTIDO.- A través 
del tiempo compartido se permite el tra- 
tamiento de información a varios usua- 
rios a la vez. Esta es una aplicación, lla- 
mada también proceso interactivo, que 



además de recibir la información de va- 
rias terminales, puede dar respuesta a 
todas ellas de manera que al usuario le 
parece estar haciendo uso exclusivo del 
ordenador. 

-ENTRADA DE TRABAJOS A DIS- 
TANCIA.- Esta aplicación dota al usua- 
rio de la posibilidad de enviar informa- 
ción desde una terminal a distancia y re- 
cibir respuesta. Se subdivide en dos ti- 
pos de procesos (RJE) (Entrada remota 
de trabajos por lotes) y CRJE (Entrada 
remota de trabajos por lotes de tipo con- 
versacional). En la primera, el usuario 
envía sus datos y los resultados se le 
devuelven a su terminal a distancia. En 
la segunda, se produce una conversa- 
ción entre la terminal y el ordenador cen- 
tral, permitiendo correcciones sucesi- 
vas del trabajo enviado. 

-CONMUTACION DE MENSAJES.- 
Permite enviar mensajes desde un pun- 
to de la red a otros puntos de la red aun- 
que estén diseminados en zonas muy 
amplias. Es un proceso muy utilizado 
para dar los resultados de unas votacio- 
nes generales o de intercambio de infor- 
mación entre grandes empresas. Nor- 
malmente, para este tipo de aplicación 
se utilizan redes de comunicación muy 
extendidas. 

Vista la utilización posible de los siste- 
mas de comunicaciones, podemos de- 
ducir las siguientes características: 

-ENTRADA Y SALIDA A DISTAN- 
CIA. A través de los servicios de comu- 
nicación los recursos y respuestas del 
ordenador central circulan comunicán- 
dose con las terminales a distancia. 

-ENTRADA AL AZAR. Cualquier ter- 
minal a distancia puede acceder al orde- 
nador central a cualquier hora. 

-PROCESO INMEDIATO DE TRAN- 
SACCIONES. Permite el proceso de da- 
tos inmediato, no teniendo que esperar 
a que los «lotes» de información se pro- 
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cesen todos juntos. De esta manera 
cada transacción se procesa individual- 
mente en el acto. 

-TIEMPO DE RESPUESTA RAPI- 
DO. Los sistemas de comunicaciones 
están diseñados para ofrecer tiempos 
de respuestas lo más rápidos posible. 

-MULTIPLES USUARIOS SIMULTA- 
NEOS. Como hemos dicho anterior- 
mente, este sistema permite que se ac- 
ceda al ordenador central a través de 
varias terminales trabajando al mismo 
tiempo. 

-«ON-LINE». A través de este térmi- 
no, se define la operación de entrada de 
datos desde la terminal a distancia al or- 
denador central. 

-TIEMPO REAL. Este término se utili- 
za para calificar a las operaciones que 
tienen una respuesta suficientemente 
rápida, y por lo tanto permite la correc- 
ción de errores inmediatamente sin que 
se tenga que esperar a que se cumplan 
otras operaciones que puedan producir, 
en algunos casos, dificultades de comu- 
nicación. 



ELEMENTOS BASICOS DE LOS 
SISTEMAS DE COMUNICACIONES 

Los ejemplos básicos de los sistemas 
de comunicaciones son: El ordenador 
central o principal, los medios y servi- 
cios de comunicaciones y las estacio- 
nes de terminal a distancia. 

Las terminales a distancia suponen el 



acceso al ordenador central y actúan, 
también como medio para poder extraer 
información del mismo. La forma de la 
terminal, varía según sea su aplicación. 
Normalmente el equipo de la terminal 
consta de un teclado con un registro im- 
preso y salida impresa. 

La función de los medios y servicios 
de comunicaciones es la de hacer llegar 
el mensaje hasta el ordenador central, y 
en el caso de que se produzca respues- 
ta, devolverla a la terminal. 

Aparte de proporcionar el programa y 
la base de datos, el ordenador central, 
ha de estar preparado para reaccionar 
ante cualquier demanda solicitada por 
una de las terminales. Por lo tanto no es 
posible que el ordenador central funcio- 
ne solo con procesos de entrada/salida 
por lotes rutinarios. Normalmente se ha 
de utilizar un NCP (Programa de control 
de redes). 

El NCP es un sistema operativo cuya 
función es la de control y tratamiento de 
la red de comunicaciones. 

El interfaz o «interface» es el punto 
donde se encuentran los procesos de 
datos con el sistema de comunicacio- 
nes. Los diseñadores son los encarga- 
dos de engendrar los dispositivos capa- 
ces de realizar las operaciones necesa- 
rias en el interfaz. Estos dispositivos re- 
ciben el nombre de unidades de control 
de comunicaciones. 

Si extendemos los tres elementos 
principales de los sistemas de comuni- 
caciones a estos dos últimos podemos 
constatar que los elementos principales 



de un sistema de comunicaciones son 
cinco: 

-Estación terminal a distancia. 
-Medios y servicios de comunicacio- 
nes. 

-Ordenador central. 

-Programación de sistemas de comu- 
nicaciones. 

-Unidades de control de comunica- 
ciones. 

AEEAS DE RESPONSABILIDAD 

Normalmente podemos considerar 
responsables en un proceso de datos 
del éxito de la operación, al usuario y al 
fabricante. El usuario es responsable de 
la buena utilización de la terminal y el fa- 
bricante es el responsable del buen fun- 
cionamiento del sistema. Sin embargo, 
en las aplicaciones donde se han de 
transmitir datos a grandes distancias es 
la compañía telefónica la responsable 
del envío y la recepción de datos. 

La compañía telefónica aunque no in- 
terviene en la programación de los da- 
tos, ha de asegurar la entrega de los da- 
tos entre lugares separados por gran- 
des distancias. 

Como es de suponer, la comunica- 
ción de datos a través de la compañía 
telefónica, no se hace a través de men- 
sajes hablados, sino mediante señales 
digitales eléctricas. 

Juan Carlos González. 
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TEST DE 
LISTADOS 



Manhattan Transfer, S A. 
Formato: Cassette 32K 
Mandos: Te 




TEST DE 
LISTADOS 



¿Cómo corregir los errores 
de transcripción de Tos 
programas? 
La solución a los errores en 
los programas es este TEST 
DE LISTADOS. 



CON GARANTIA 



Tras el extraordinario éxito obtenido 
con la publicación del Test de Lista- 
do que permite a nuestros lectores 
verificar de un modo rápido los posibles 
errores de copia de los pro gram as que pu- 
blicamos tanto en MSX EXTRA como en 
MSX CLUB, nos hemos visto casi obliga- 
dos a editarlo en cassette. De este modo 
aquellos lectores que quieran evitarse el 
tener que copiarlo de nuestros números 
10 y 1 1 y del número 7 de MSX CLUB sólo 
tendrán que solicitar la cinta a nuestra re- 
dacción. 

El Test de Listados es un útilísimo pro- 
grama para ahorrar tiempo y evitar tirar 
el ordenador y acordarnos de muchas per- 
sonas no queridas cuando no sale lo que 
esperamos. Nuestras publicaciones son 
las únicas que lo traen para facultar la ta- 
rea de todos los interesados en aprender 
un poco más copiando programas. Al final 
de cada uno de los programas publicados 
damos dos columnas de números. La pri- 
mera columna corresponde a las lineas y 
la segunda a una cifra de verificación. 
Cada una de estas cifras se suman y el to- 
tal tiene que coincidir con el que el lector 



obtenga tras emplear el Test de Listado. Si 
la suma coincide el programa tiene que 
funcionar correctamente. Si coincide y no 
funciona, puede suceder que haya algunas 
diferencias compensadas en algunas lí- 
neas que son fáciles de localizar. Del mis- 
mo modo si la cifra total no es igual a la 
que publicamos el lector tiene que buscar 
en qué línea se encuentra el error. Una vez 
localizada vuelve al programa de la revis- 
ta y verifica que la copia sea correcta. Su 
empleo es muy fácil. 

Es muy importante que no remunere 
nuestros programas hasta que los haya 
verificado ni haga ningún tipo de modifi- 
cación, pues de hacerlo así el Test no le 
servirá de nada. 



Conclusión: Programa muy útil para los leo 
tores de MSX EXTRA y MSX CLUB. Sólo se 
vende en n/redacción o por correo. 
Precio aproximado: 500 ptas. 




KINGLEONARD 



Mind Oames 
formato: Cassette 32K 
Mandos: Teclado o joystíck. 
Teclee: Bload u CAS: n ,R 




El rey Leonard ha sido destronado 
por su propio hermano y por si es- 
to fuera poco ha escondido todas 
las riquezas del reino en una de las tantas 
habitaciones del castillo, prohibiendo la 
entrada a Leonard. Tú, como fiel servidor 
del rey destronado, debes penetrar en el 
castillo en busca de las riquezas ya que la 
única posibilidad de vencer al malvado 
monarca y recuperar el trono es llegando 
hasta ellas. 
Las riquezas se encuentran escondidas 



POR CLAUDIA TELLO HELBLING 
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Sonido: Convencional. 
Orsüsmo: Bueno. 

Conclusión: Un juego de laberinto sólo apto 

para jugadores hábiles. 

Precio aproximado: 2.495 ptas. + IVA 





MERLIN 



Mind Games 
Formato: Cassette 32K 
Mandos: Teclado o joystick 
Teclee: Bload u CAS: n ,R 



en "la cámara de los tesoros" pero una vez 
dentro del castillo deberás pasar por todas 
las habitaciones. Has de tener mucha pre- 
caución con los guardias que vigilan celo- 
samente la cámara pero también hazlo 
con los que vigilan cada aposento pues su 
maldad iguala a los anteriores. Si te si- 
guen procura despistarlos o estarás per- 
dido. 

En diferentes rincones del castillo en- 
contrarás llaves que debes coger, ya que 
pueden serte útiles en momentos de peli- 
gro y/o abrirte puertas que conducirán a 
la cámara de los tesoros. 

Dispones de 10 vidas para esta misión, 
no las desperdicies. Son varias las causas 
que te harían perder una o más vidas: — 
que te atrapen los guardias de los aposen- 
tos o la cámara, -en tus desplazamientos, 
en los saltos, estos últimos hazlos con pre- 
cisión pensando que de ti depende el rey 
Leonard. 

La puntuación irá en aumento a medida 
que te vas acercando al tesoro, derribando 
y recogiendo llaves que encuentres por el 
camino. Obtendrás éxito en esta misión si 
posees mucha habilidad y la suerte te 
acompaña en todo momento. 



Seguro que todos conocéis al gran 
mago Merlin, famoso por sus hechi- 
zos para ayudar a los demás. Ahora, 
nuestro amigo se encuentra en un verda- 
dero problema y necesita de tu ayuda. Re- 
sulta que está prisionero y en la parte más 
deshabitada del castillo donde nadie puede 
oírle. Sin embargo, éste no es su principal 
inconveniente. Todo comenzó cuando 
Merlin estaba preparando un hechizo y 
por alguna equivocación en los ingredien- 
tes comenzaron a aparecer extraños se- 
res que desde entonces no cesan de acosar 
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al pobre mago, obstaculizando sus experi- 
mentos. 

Para acabar con estos seres malignos 
Merlin ha de conseguir las fórmulas. Pero 
otra trastada que le han hecho los maldi- 
tos es esparcir todas las fórmulas y mez- 
clarlas por todos los rincones del castillo. 
Entre estas fórmulas se encuéntrala solu- 
ción para derrotar a los genios del mal. 
Pero no sólo han revuelto papeles y escon- 
dido el libro de Merlin sino también los in- 
gredientes que éste puede usar. El Juego 
consiste pues en encontrar la fórmula que 
destruirá a los seres y también los ingre- 
dientes para realizarla. 

En la pantalla tienes un indicador de la 
puntuación que vas obteniendo a medida 
que avanzas en el juego, de las oportunida- 
des o vidas que te quedan y la fórmula que 
debes buscar. Pero no los elementos nece- 
sarios para componerla. Un gran consejo 
es que antes de jugar a Merlin te repases 
las formulaciones. 

Los que no son tan buenos en química 
pueden elegir los óxidos y anhídridos, 
pero los más atrevidos pueden optar por 
ácidos y sales. No olvides que cada fase tie- 
ne un tiempo determinado. 



Sonido: Correcto. 

Grafismo: Muy bueno. 

Conclusión: Además de entretenido resulta 

sumamente útil para saber más de química. 

Precio aproximado: 2.495 ptas. + IVA 





DRAGONWORLD 




: Diskettep/MSX2 
Teclado 



Este es un magnífico juego de aven- 
turas en el que la capacidad de de- 
cisión y la audacia tienen un papel 
importante en la consecución del éxito. Tu 
misión y la de tu amigo Hawkwind es la de 
rescatar al Dragón que ha sido raptado y 
encarcelado por las fuerzas del mal. Tu 
nombre es Amsel y eres un científico muy 



especial, pues no sólo te vales de las cosas 
racionales, sino también de las fantásti- 
cas para conseguir tu propósito. Esto sig- 
nifica que si no te sirve la espada, un barco 
u otro objeto puedes echar mano a deter- 
minadas palabras mágicas para conti- 
nuar tu camino hacia las profundas tie- 
rras del Sur de Simbala, donde está prisio- 
nero el Ultimo Dragón. 

Para Jugar te recomiendo que una vez 
cargado el disco prepares otro a fin de gra- 
bar en él el camino que hayas recorrido y 
no tengas que volver desde el principio. 
Para crear un disco de Juegos tiene que 
emplear la orden PREPARAR, cuando el 
peligro de destrucción es inminente y 
pulsa RETURN. De modo que si te destru- 
yen puedes restablecerte en el mismo 
punto. Para hacerlo tienes que usar la or- 
den RECUPERAR. 

Como ya es habitual en este tipo de juego 
no debes complicarte la vida dando órde- 
nes confusas. En principio trata de colo- 
car el verbo primero seguido del objeto, las 
características de éste. También puedes 
determinar en una misma orden varias 
órdenes, pero éstas deben ser coherentes 
y secuenciales. Por ejemplo no puedes zar- 
par sin antes subir al barco, ni leer un li- 
bro sin antes cogerlo y abrirlo. Los adjeti- 
vos o sustantivos que emplees y que no 
sean aceptados te aparecerán en pantalla 
como vocablos que no están en el idioma 
de Simbala. El mismo criterios se sigue 
cuando te encuentran con alguien y ha- 
blas. Quiero decir que das la orden de ha- 
blar, preguntar y después especificas con 
quién y sobre qué o quién. 

Uno de los recursos mágicos que tienes 
para salvarte de algún peligro es invocar 
la Perla del Dragón. Ella te sacará de apu- 
ros y podrás recomenzar la búsqueda des- 
de un punto más seguro. Pero todo tiene su 
límite y no podrás invocarla más de cinco 
veces. También puedes pedir los inestima- 
bles consejos de tu amigo Hawkwind para 
lo cual tienes que localizarlo allí donde 
esté. 

Este Juego desarrollado por Idealogic, 
bajo Ucencia de Telarium, ha contado con 
un equipo totalmente español, integrado 
por Norbert Martínez, Ricard Gavaldá 
Eloi Serra, Agustín Pérez, Eloi Ortega] 
J oan Carmonay Josep M. a Losantes . Tam- 
bién han participado en las ilustraciones 
Romá Gutiérrez, Oscar Eróles, Susanna 
García y Cristina Carré. 



LE MANS 2 




Grafismo: Excelente. 
Sonido: Correcto. 

Conclusión: Un magnifico juego de aventu- 
ras desarrollado para MSX-2 aprovechando 
la potencia de estos aparatos y propiciando la 
imaginación del jugador. 
Precio aproximado: 5.950 ptas. 



Serma 

Formato: Tarjeta Softcard 
Mandos: Teclado o joystick 




Para los aficionados a fórmula 1 os 
presentamos el juego ideal; una ver- 
sión de las famosísimas "24 horas 
de Le Mans", pero al adaptarlas a vídeo 
juego se ha tenido que variar un poco. Esta 
diferencia consiste en que las 24 horas pa- 
sarán a ser 24 minutos, lo que es una gran 
ventaja para vosotros, ¿no creéis? 

Para dar por terminada la carrera se 
han de hacer las 10 vueltas que componen 
"Los 24 minutos de Le Mans". 

Si te has decidido a participar, tendrás a 
tu disposición un hermoso coche deporti- 
vo. Tu puesto es el de conductor así ten- 
drás una perspectiva más real y emocio- 
nante, con un grafismo tridimensional. La 
luz verde indicará la salida; el coche puede 
llegar a alcanzar los 360 km/h y sus fun- 
ciones son las siguientes: -girar a la dere- 
cha, -a la izquierda, -acelerar, -disminuir 
la velocidad y frenar apretando el botón de 
disparo; está equipado con 5 marchas que 
cambiarán automáticamente cuando sea 
necesario. 

La carrera es muy larga, recuerda que 
su límite son 24 minutos que representan 
24 horas lo que significa que deberás pa- 
sar la noche al volante procurando que el 
cansancio no te haga salir de la pista. La 
carrera la forman 20 participantes, si no 
quieres que te penalicen procura no llegar 
el último, ni salirte de la pista en una de- 
rrapada. 

Consejos para aumentaar la puntua- 
ción: -mantener el coche en la pista pro- 
curando el mínimo de accidentes, -ade- 
lantar a los demás coches y sacando vuel- 
tas de ventaja. 

Para finalizar la carrera con éxito busca 
un buen copiloto. 



Sonido: Bueno. 

Grafismo: Visión tridimensional de la pista. 
Conclusión: Juego emocionante. 
Precio aproximado: 5.200 



TRATAMIENTO DE DATOS 



LOS FICHEROS EN MEMORIA. 



Una de las razones que han impulsado el desarrollo de la informática en los últimos años es la facilidad con que los 
ordenadores tratan grandes volúmenes de datos. En este artículo veremos una de las herramientas fundamentales 
en el tratamiento de datos: los ficheros. 




Los ficheros en los ordenadores tie- 
nen una gran similitud con los fi- 
cheros convencionales sobre pa- 
pel. Repasemos, en primer lugar, los 
componentes fundamentales de un fi- 
chero convencional. 

En primer lugar contamos con el fi- 
chero, el conjunto de fichas. En caso de 
que existan varios ficheros, cada uno 
tiene un nombre: fichero de clientes, fi- 
chero de proveedores, etc. Para acce- 
der a los datos del fichero debemos, an- 
tes de nada, abrirlo. Una vez abierto el fi- 
chero nos encontramos con que la infor- 
mación está dividida en fichas. Cada 
una de estas fichas tiene un código o 
un nombre según el cual están ordena- 
das en el fichero. Una vez tenemos la fi- 
cha ante nosotros observamos que está 
dividida en varios campos: nombre, di- 
rección, etc. Para acabar, una vez retor- 
nada la ficha a su sitio, cerramos el fi- 
chero. 

Hemos expuesto este proceso de ac- 
ceso a la información de una ficha en un 
fichero convencional, ya que el sistema 
utilizado para obtener la información en 
un fichero de ordenador es práctica- 
mente el mismo. 

Distinguiremos antes de entrar en 
materia, tres tipos de ficheros, cuyo 
modo de acceso será bien diferente. El 
primero de ellos es el fichero en memo- 
ria: este fichero está incluido totalmente 
en la memoria del ordenador, y se pier- 
de al apagar el mismo. El segundo tipo 
de fichero es el secuencial. Secuencia- 
Ies son los ficheros en cassette, ya que 
la información se almacena un dato tras 
otro, aunque también podemos gene- 
rar ficheros secuenciales sobre el disco. 
En estos ficheros sólo podemos acce- 
der a un dato si hemos pasado por todos 
los anteriores. Por último están los fiche- 
ros de acceso aleatorio, o ficheros «ran- 
dom». Estos ficheros, sólo direcciona- 
bles desde el disco, permiten obtener un 
dato de forma directa. 

Trataremos con calma de todos ellos, 
y daremos ejemplos de cómo se pueden 
crear y utilizar. Empezaremos con los 
más sencillos: los ficheros en memoria. 

FICHEROS EN MEMORIA 

No existe una estructura especial en 
BASIC para generar ficheros en memo- 
ria (sí por ejemplo en PASCAL), por lo 
que, para almacenar los datos utilizare- 



mos conjuntos de cadenas de caracte- 
res. Repasemos en primer lugar las es- 
tructuras BASIC necesarias para el de- 
sarrollo de los ficheros en memoria. 

DIM: El comando DIM genera un con- 
junto ordenado (una única dimensión) o 
tablas (más de una dimensión) según se 
lo especifiquemos. Por ejemplo: 

DIM nombre$ (100) 

genera un conjunto, llamado nom- 
bres, que contiene 1 00 cadenas de ca- 
racteres (por llevar dólar). En cambio, 

DIM edad (145) 

genera un conjunto, llamado edad, 
que contiene 145 números. 

Para colocar un 7 en el elemento 43 
del conjunto edad haríamos: 

edad (43) = 7 

A algunos de los lectores esto les pa- 
recerá trivial y extremadamente simple, 
a otros, por el contrario, les sonará a chi- 
no. Intentaremos contentar a todos. 

Como hemos dicho al principio, en 
una ficha diferenciamos la información 
en varios campos: nombre, edad, etc. 
En los programas que utilicen ficheros 
en memoria, asignaremos cada campo 
a un conjunto. Tomaremos como ejem- 
plo, a partir de ahora, una ficha que sólo 
incluya nombre, edad y número de telé- 
fono, para simplificar, aunque el proce- 



so es el mismo si se desean utilizar más 
campos. 

Nuestro programa debería comenzar 

con: 

DIM nom$(100), edad(100), tlf$(100) 
Hemos abreviado nombre por nom, 
así que el nombre se almacenará en 
nom$, y asimismo teléfono por tlf. He- 
mos asignado al teléfono un conjunto de 
cadenas de caracteres. Hemos hecho 
esto para facilitar la entrada de los telé- 
fonos con guiones o puntos de separa- 
ción, que no se podrían utilizar si hubié- 
semos declarado tlf sin el signo de dólar. 

El número 1 00 representa el máximo 
número de fichas que podrá almacenar 
nuestro programa (100 está bien por el 
momento). El acceso a la ficha se consi- 
gue modificando el nombre, la edad y el 
teléfono de un mismo índice al mismo 
tiempo. Quedará más claro con un 
ejemplo: 

nom$ (1)= "Pedro Pókez Remírez" 
edad (1) =37 

tlf$(1) = "(23)-34-43-12" 

con esto sabemos que el nombre de 
la ficha uno es Pedro..., la edad de la fi- 
cha uno es 37 y el teléfono de la ficha 
uno es (23)-34-43-12. Con esto he- 
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mos realizado un alta en nuestro inci- 
piente fichero. 

Pero lo más interesante de un fichero 
es poder acceder a sus datos. Nada 
más fácil. Si queremos ver el teléfono de 
la ficha uno no tenemos que hacer más 
que 

PRINT tlf$(1) 
(23) -34-43- 12 



El problema de este sistema es que si 
se borran muchas fichas se desaprove- 
cha mucho la memoria del ordenador, y 
si se borran muy pocas, resultará muy 
lento encontrar una ficha vacía. 

El sistema utilizado para dar de baja 
debe elegirse en función del tipo de da- 
tos que vayamos a introducir en el fiche- 
ro, si se van a dar muchas o pocas ba- 
jas, y de otros factores que sólo la expe- 
riencia os ayudará a discernir. 





Para eliminar fichas podemos utilizar 
varios métodos. El primero, y más evi- 
dente, es desplazar todas las fichas que 
hay detrás un puestro atrás. Por ejem- 
plo, si quisiéramos borrar la ficha 33 ha- 
ríamos 

FORx =33+1 to100 
nom$ (x-1)=nom$ (x) 
edad (x-1)=edad (x) 
tlf$(x1)=tlf$(x) 
NEXTx 

Este sistema tiene un grave inconve- 
niente si el fichero es muy grande: la len- 
titud. Si queremos borrar la ficha 1 en un 
fichero de 5000 fichas tendremos que 
desplazar 4999 fichas. Existen otros si- 
temas para evitar esto, siendo el princi- 
pal el de la indexación, de la que habla- 
remos más adelante. Otro ardid muy uti- 
lizado es introducir un carácter especial 
para indicar que la ficha está vacía. Por 
ejemplo, si el primer carácter del nom- 
bre es un "$", podemos suponer que la 
ficha está vacía. Quede claro que esto lo 
hacemos por conveniencia; no hay nin- 
guna obligación de utilizar el "$" como 
marca de ficha vacía; pero es un buen 
ejemplo. Utilizando este sistema, borrar 
la ficha 33 sería tan fácil como 

nom$ (33) = "$" 



Hasta ahora ya hemos definido las 
operaciones fundamentales del fichero: 
dar de alta (añadir fichas), dar de baja 
(borrar fichas) y consultar. La última op- 
ción que nos queda por comentar es la 
búsqueda por un campo. Realizaremos 
la búsqueda por nombre, pero quede 
claro que el proceso es el mismo con 
cualquiera de los otros campos. 

Esta opción es, con mucho, la más uti- 
lizada. Si queremos saber el teléfono de 
alguien, es lógico que sepamos su nom- 
bre; pero es más difícil que sepamos el 
número de ficha que ocupa en el fichero. 
Para buscar un nombre, por ejemplo 
"Absurdio Príntez Gotodies" tenemos 
que recorrer todo el fichero hasta dar 
con él. Podríamos programarlo de la si- 
guiente forma. 



a$= "Absurdio Príntez Gotodies" 
i=0 
xxx i=i+1 
if (nom$ (i)oa$ and i< = 100) then 
goto xxx 

yyy if (nom$ (i)=a$) then... encontrado 

else... no encontrado 

El programa puede llegar a la línea 
yyy por dos razones: que haya encon- 
trado el nombre (nom$(i)=a$) o que ha- 
yamos recorrido todas las fichas 
(i>100), por lo que el IF... THEN... de la 
línea yyy nos indica si ha encontrado o 
no el nombre dentro del fichero. 

Llega el momento de hacer un progra- 
ma que controle la totalidad del fichero. 
El programa del recuadro adjunto no es 
más que un ejemplo de uso de todo lo 
que hemos visto hasta el momento. Evi- 
dentemente, cada uno debe modificarlo 
para su aplicación particular, añadiendo 
o eliminando cuantas opciones desee. 



DESCRIPCION DEL PROGRAMA 

El programa que acompaña a este ar- 
tículo no pretende, ni mucho menos, ser 
un buen programa de ficheros en me- 
moria. Es tan sólo un ejemplo práctico 
de cómo se utilizan éstos. 

Vamos, por tanto, a comentar cada 
uno de los bloques que lo forman. 

En primer lugar, y tras las líneas REM 
iniciales, inicializamos los tres conjuntos 
que formarán nuestro fichero: nom$, 
edad y tlf$. También colocamos un uno 
en la variable NF. En esta variable alma- 
cenaremos el Número de Ficha sobre la 
que estamos trabajando. Al comenzar el 
programa colocamos un uno, ya que la 
primera ficha que entraremos es la ficha 
uno. 

A partir de la línea 50 nos encontra- 
mos el menú de opciones, que nos mos- 
trará en la pantalla todas las opciones 
posibles, y nos pedirá Cuál queremos 
utilizar. Vamos a tratar ahora cada una 
de las opciones. 

En la línea 1 000 vamos a incluir la op- 
ción de DAR DE ALTA una ficha. Repa- 
semos paso a paso el proceso a seguir. 
En primer lugar, cuando utilicemos esta 
opción, la variable NF debe contener el 
número de ficha a introducir. ¿Recor- 
dáis que la inicializamos con el valor 
uno? Pues eso quiere decir, ni más ni 
menos que la primera vez que utilice- 
mos esta opción entraremos los datos 
de la ficha uno. En primer lugar en la lí- 
nea 1030 nos encontramos un INPUT 
que nos pide el nombre de la ficha NF 
(nom$(NF)). En las dos líneas siguientes 
a ésta se hace lo mismo con la EDAD y 
el TELEFONO de esa misma ficha. A 
continuación, en la línea 1060, suma- 
mos uno a la variable NF, con lo que nos 
preparamos para recibir la siguiente fi- 
cha. Por último una cuestión de puro trá- 
mite: preguntarnos si queremos o no en- 
trar una nueva ficha y actuar en conse- 
cuencia. 
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A partir de la línea 2000 hemos inclui- 
do la opción de DAR DE BAJA una ficha. 
Como comentábamos anteriormente, 
existen muchos métodos para eliminar 
una ficha de un fichero en memoria; 
pero hemos elegido la más simple en 
este ejemplo. Hemos utilizado este sis- 
tema porque simplifica mucho el progra- 
ma, de forma que lo puedan entender 
aquellos que no dominan demasiado el 
lenguaje BASIC. Para aquellos que do- 
minan y conocen bien el lenguaje deja- 
mos la labor de instalar cualquiera de los 



otros sistemas de borrado. El sistema 
utilizado consiste en preguntar el núme- 
ro de ficha a borrar y, tras haber hecho 
esto, desplazar todas las siguientes un 
puesto hacia atrás. 

La última opción que hemos incluido 
en este sencillo programa es la de con- 
sultar las fichas previamente entradas. 
Evidentemente, antes de consultar he- 
mos de haber entrado algunas fichas, 
(podéis hacer que el programa verifique 
este punto y lo avise si es necesario). 
Hemos dividido la opción en otras dos, 



consulta por nombre y consulta por códi- 
go. En el segundo caso, en la línea 
5000, no hay más que preguntar el códi- 
go e imprimir todos los datos relaciona- 
dos con esa ficha. Hemos incluido una 
verificación, para verificar que el código 
entrado está entre 1 y 100. 

Y aquí acaba el programa. Como 
veis, se trata de un simple ejemplo de 
utilización de los ficheros en memoria; 
pero esperemos que sea lo suficiente- 
mente clarificador como para que po- 
dáis realizar vuestros programas de fi- 
cheros. 

Por último, y antes de despedirnos va- 
mos a haceros unas cuantas sugeren- 
cias para vuestros programas de fiche- 
ros. En primer lugar, en un programa de 
ficheros en memoria es muy importante 
verificar todos los posibles errores de 
los usuarios, ya que si el programa se 
para en algún momento pueden perder- 
se todos los datos. Os recomendamos, 
por tanto, que no escatiméis sentencias 
del tipo IF... THEN... allí donde puedan 
ser interesantes. Otra recomendación 
interesante es que utilicéis rutinas de 
entradas de datos en lugar de INPUTs, 
ya que estos últimos producen muchos 
errores si el usuario del programa se 
equivoca. El uso y programación de las 
rutinas de entrada de datos fueron co- 
mentadas en el número de diciembre 
(25-26) de nuestra revista. Por último, 
utilizad todos los REMs que creáis con- 
venientes, ya que seis meses después 
de haber hecho el programa los agrade- 
ceréis. 

Y ahora sí, nos despedimos; pero vol- 
veremos en el siguiente número a tratar 
este interesante tema de los ficheros. 
En el próximo número: LOS FICHEROS 
SECUENCIALES. 



SUSCRIBETE HOY MISMO SI 
QUIERES ESTAS EN VANGUARDIA 




La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, SJL 



Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 





Muy importante: para evitar retrasos en la 



recepción de loa números rogamos deta- 

„ „. .„ . , lléla exactamente el nuevo número de los 

a partir del numero distritos postales. Gracias. 

FORMA DE PAGO: Mediante talón ban- TAarrAfl . 
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11 ' 

ii ' mtmmmmtmum 



12 ' t t 

13 ' t Ejeiplo de' uso de los t 

14 ' t t 

15 ' t ficheros en neioria * 

16 ' t t 

17 ' t (c) HSX-EXTRA t 
IB ' t » 

19 ' t Autor: Milly Miragall t 

20 ' t % 



21 ' ttttttttttttttttttttttttt 

22 ' 

23 ' 

25 ' tt INICIALIZO CONJUNTOS tt 
30 ' 

40 DIN N0M$ ( 100) , EDAD ( 100 í , TLF$ ( 1 00 ) 
42 NF=1 
45 ' 

50 ' tt MENU DE OPCIONES tt 
55 ' 
60 CLS 

70 PRINT "1.- DAR DE ALTA' 

80 PRINT '2.- DAR DE BAJA" 

90 PRINT "3.- CONSULTAR" 

100 PRINT: PRINT 

110 INPUT "¿Qué opción";0P 

120 IF 0P<1 OR 0P>3 THEN 60T0 60 

130 ON OP GOTO 1000,2000,3000 

140 END 

1000 ' 

1005 ' XX DAR DE ALTA XX 
1010 ' 
1022 CLS 



1030 INPUT "NOMBRE" : N0M$ (NF) 
1040 INPUT "EDAD"; EDAD ÍNF) 
1050 INPUT "TELEFONO" : TLFi (NF) 
1060 NF=NF+1 
1070 PRINT: PRINT 

1080 PRINT "¿Quieres añadir otra (S/N) 

?'; 

1090 A$=INPUT$(1) 

1100 IF A$="S" OR A$="s B THEN 1020 
1110 IF AS="N" OR A$="n" THEN 50 
1120 GOTO 1090 
2000 ' 

2005 ' XX DAR DE BAJA XX 
2010 ' 
2020 CLS 

2030 INPUT "Número de ficha";F 
2040 FOR X=F+1 TO 100 
2050 NQM$(X-1)=N0Í1$(X) 
2060 EDAÜ(X-1»=EDAD(X) 
2070 NEXT X 

2080 PRINT "¿Quieres borrar otra (S/N) 
9*1 

2090 Af=INPUT$(l) 

2100 IF A$="S" OR A$="s" THEN 2020 
2110 IF A*="N" OR A$='n" THEN 50 
2120 GOTO 2090 
3000 ' 

3005 • ti CONSULTAR Xt 
3010 ' 
3020 CLS 

3030 PRINT "CONSULTA":PRINT 

3040 PRINT "¿Por noibre (N) o por códi 

go (C)?"; 

3050 A$=INPUT$(1) 



3060 IF A$="N" OR A$='n" THEN 4000 
3070 IF A*="C" OR Af="c" THEN 5000 
3080 GOTO 3050 

3100 PRINT "¿Quieres consultar otra (S 
/N)?"; 

3110 A$=INPUT$(1) 

3120 IF A$="S" OR A$="s" THEN 3020 
3130 IF A$="N" OR A$="n" THEN 50 
3140 GOTO 3110 
4000 ' 

4005 ' XX CONSULTA POR NOMBRE tt 
4010 * 
4020 PRINT 

4030 INPUT "¿Qué noibre";N$ 
4035 PRINT 
4040 1=0 
4050 1=1+1 

4060 IF (NOHKDON* AND K100) THEN G 
OTO 4050 

4070 IF NOH$(I)=N$ THEN PRINT "EDAD:*: 
EDAD ( I ) : PRINT "TELEFONO: ";TLF$(D ELSE 
PRINT "NO ENCONTRADO" 
4080 GOTO 3100 
5000 • 

5005 ' tt CONSULTA POR CODIGO tt 
5010 ' 
5020 PRINT 

5030 INPUT "¿Qué código";C 
5035 PRINT 

5040 IF C>0 AND C<100 THEN PRINT "NOHB 
RE:";NOM$(C):PRINT "EDAD: EDAD (0 : PRI 
NT "TELEFONO: ";TLF$(0 ELSE PRINT "COD 
150 NO VALIDO" 
5050 GOTO 3100 



VIVE LA APASIONANTE AVENTURA 
DE PILOTAR UN CAZA 

SKY HAWK 

ES UN SIMULADOR ESPECTACULAR 

CON LA GARANTIA MANHATTAN TRANSFER, S.A. 




TRUCOS DEL 



PROGRAMADOR 




PROTECCION DE 
LISTADOS 

P 



ara proteger los listados de vues- 
tros programas de miradas indis- 
cretas podéis hacer: 



POKE &HFF89, &HC3 
POKE &HFF8A, 
POKE &HFF8B, 

Este sistema de protección consiste 
en eliminar la instrucción LIST, de modo 
que si alguien intenta hacer LIST, el or- 
denador hace un RESET (se apaga y 
vuelve a encender automáticamente). 

El principal inconveniente de este sis- 
tema de protección es que, si se conoce 
el truco, se conoce la forma de evitarlo, 
ya que haciendo 

POKE &HFF89, &HC9 

se vuelve a conectar la instrucción 
LIST, y se puede ver el listado. 

Sin embargo, si además de la instruc- 
ción LIST eliminamos la instrucción 
POKE, resulta imposible volver a activar 
ninguna de las dos, de modo que vues- 
tros listados estarán definitivamente se- 
guros. 

Teclead el siguiente listado: 
10 POKE &HFF89, &C3 
20 POKE &HFF8A, 
30 POKE &HFF8B, 
40 POKE &HFF93, &C3 
50 POKE &HFF94, 
60 POKE &HFF95, 

Tras hacer RUN podéis estar seguros 
de que vuestros listados serán inviola- 
bles. 



TAMAÑO DE 
LA PANTALLA 



De todos es conocida la instruc- 
ción WIDTH (o al menos debería 
ser conocida por todos). Esta 
instrucción nos permite definir el núme- 
ro de caracteres por línea en la pantalla. 
Por ejemplo, si hacemos WIDTH 15, 
sólo podremos escribir 15 caracteres 
por línea. 

Sin embargo, el BASIC no nos propor- 
ciona ninguna instrucción que nos per- 
mita hacer algo simiiar con el formato 
vertical. Para conseguir variar el número 
de I íneas de la pantalla basta con hacer. 
POKE &HF3B1, n 

donde n es el número de líneas que 
deseamos tenga la pantalla. Si utiliza- 
mos valores mayores que 24 puede pa- 
sar cualquier cosa. ¿Qué mejor invita- 
ción para realizar experimentos y con- 
seguir nuevos trucos? Ya sabéis, a par- 
tir de ahora, pantallas a medida. 



DEEKYD0KE 



En algunas aplicaciones (sobre 
todo en la programación de en- 
samblador desde el BASIC), re- 
sulta muy interesante hacer POKE en 
dos direcciones de memoria consecuti- 
vas. 

Hemos definido una función que reali- 
za esta tarea. Para utilizarla debéis ha- 
cer lo siguiente. 

1 .- Incluir la siguiente línea al inicio de 
vuestros programas. 

10 DEF hNDOKE(X) = PEEK(X) 



+256*PEEK(x+1) 

2.- Para utilizarla no tenéis más que 
hacer: 

PRINT FNDOKE (&HFF89) 

P = FNDOKE (64532) 
etc.. 



S0OTDYLAS 
NOTAS 



Cuando queremos utilizar la ins- 
trucción SOUND para generar 
notas musicales necesitaremos 
saber las frecuencias de cada nota. He 
aquí una tabla que os puede ayudar con 
esta tarea: 



DO 

DO# 

RE 

R#E 

MI 

FA 

FA# 

SOL 

SOL* 

LA 

LA* 

SI 



-13079 

-138"50 

-14678 

-155'44 

-164'80 

-174'61 

-184'91 

-195'93 

-207'48 

-220 

-232*98 

-246'94 



Como dato adicional, sabed que, para 
pasar a una escala superior basta con 
multiplicar por 2 estas frecuencias, 
mientras que para pasar a una escala in- 
ferior basta con dividirlas por 2. 
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MUY PRONTO EN TU QUIOSCO. Stop 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 





OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 
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